From mathcomp Require Import all_ssreflect finmap.
Notation "[ rel _ _ | _ ]" was already used in scope
fun_scope. [notation-overridden,parsing]
Notation "[ rel _ _ : _ | _ ]" was already used in
scope fun_scope. [notation-overridden,parsing]
Notation "[ rel _ _ in _ & _ | _ ]" was already used
in scope fun_scope. [notation-overridden,parsing]
Notation "[ rel _ _ in _ & _ ]" was already used in
scope fun_scope. [notation-overridden,parsing]
Notation "[ rel _ _ in _ | _ ]" was already used in
scope fun_scope. [notation-overridden,parsing]
Notation "[ rel _ _ in _ ]" was already used in scope
fun_scope. [notation-overridden,parsing]
Notation "_ + _" was already used in scope nat_scope.
[notation-overridden,parsing]
Notation "_ - _" was already used in scope nat_scope.
[notation-overridden,parsing]
Notation "_ <= _" was already used in scope nat_scope.
[notation-overridden,parsing]
Notation "_ < _" was already used in scope nat_scope.
[notation-overridden,parsing]
Notation "_ >= _" was already used in scope nat_scope.
[notation-overridden,parsing]
Notation "_ > _" was already used in scope nat_scope.
[notation-overridden,parsing]
Notation "_ <= _ <= _" was already used in scope
nat_scope. [notation-overridden,parsing]
Notation "_ < _ <= _" was already used in scope
nat_scope. [notation-overridden,parsing]
Notation "_ <= _ < _" was already used in scope
nat_scope. [notation-overridden,parsing]
Notation "_ < _ < _" was already used in scope
nat_scope. [notation-overridden,parsing]
Notation "_ * _" was already used in scope nat_scope.
[notation-overridden,parsing]
From hanoi Require Import extra.

Set Implicit Arguments.
Unset Strict Implicit.
Unset Printing Implicit Defensive.

Section Main. 

Variable a b : nat.
Hypothesis aL1 : 1 < a.
Hypothesis aLb : a < b.
Hypothesis aCb : coprime a b.

Let bL1 : 1 < b.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
1 < b
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
1 < b by apply: ltn_trans aLb. Qed.

Fixpoint alphal (n : nat) :=
 if n isn't n1.+1 then [:: 1; a; b]
 else
 let l := alphal n1 in
   merge leq
   (let c := head 1 l in
    let l1 := if b * c \in l then [::] else [:: b * c] in
    if a * c \in l then l1 else a * c :: l1)
   (behead l).

Definition alpha n := head 1 (alphal n).

Lemma behead_sorted (T: eqType) (r : rel T) (l : seq T) : 
  sorted r l -> sorted r (behead l).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
T:eqType
r:rel T
l:seq T
sorted r l -> sorted r (behead l)
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
T:eqType
r:rel T
l:seq T
sorted r l -> sorted r (behead l) by case: l => //= a1 [|b1 l /andP[]]. Qed.

Lemma sorted_alphal n : sorted leq (alphal n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
sorted leq (alphal n)
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
sorted leq (alphal n)
elim: n => /= [|n IH]; first by rewrite ltnW //= ltnW.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:sorted leq (alphal n)
sorted leq
  (merge leq
     (if a * head 1 (alphal n) \in alphal n
      then
       if b * head 1 (alphal n) \in alphal n
       then [::]
       else [:: b * head 1 (alphal n)]
      else
       a * head 1 (alphal n)
       :: (if b * head 1 (alphal n) \in alphal n
           then [::]
           else [:: b * head 1 (alphal n)]))
     (behead (alphal n)))
apply: merge_sorted; first by apply: leq_total.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:sorted leq (alphal n)
sorted leq
  (if a * head 1 (alphal n) \in alphal n
   then
    if b * head 1 (alphal n) \in alphal n
    then [::]
    else [:: b * head 1 (alphal n)]
   else
    a * head 1 (alphal n)
    :: (if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]))
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:sorted leq (alphal n)
sorted leq (behead (alphal n))
  by do 2 case: (_ \in _) => //=; rewrite leq_mul2r orbC ltnW.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:sorted leq (alphal n)
sorted leq (behead (alphal n))
by apply: behead_sorted.
Qed.

Lemma gt0_alphal n i : i \in alphal n -> 0 < i.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
i \in alphal n -> 0 < i
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
i \in alphal n -> 0 < i
elim: n i => /= [i|n].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
i \in [:: 1; a; b] -> 0 < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
(forall i : nat, i \in alphal n -> 0 < i) ->
forall i : nat,
i
  \in merge leq
        (if a * head 1 (alphal n) \in alphal n
         then
          if b * head 1 (alphal n) \in alphal n
          then [::]
          else [:: b * head 1 (alphal n)]
         else
          a * head 1 (alphal n)
          :: (if b * head 1 (alphal n) \in alphal n
              then [::]
              else [:: b * head 1 (alphal n)]))
        (behead (alphal n)) -> 0 < i
  by rewrite !inE => /or3P[] /eqP-> //; rewrite ltnW // (ltn_trans aL1).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
(forall i : nat, i \in alphal n -> 0 < i) ->
forall i : nat,
i
  \in merge leq
        (if a * head 1 (alphal n) \in alphal n
         then
          if b * head 1 (alphal n) \in alphal n
          then [::]
          else [:: b * head 1 (alphal n)]
         else
          a * head 1 (alphal n)
          :: (if b * head 1 (alphal n) \in alphal n
              then [::]
              else [:: b * head 1 (alphal n)]))
        (behead (alphal n)) -> 0 < i
case: (alphal n) => [/= _ i|/= a1 l IH i]; rewrite !inE.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
(i == a * 1) || (i == b * 1) -> 0 < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
i
  \in merge leq
        (if (a * a1 == a1) || (a * a1 \in l)
         then
          if (b * a1 == a1) || (b * a1 \in l)
          then [::]
          else [:: b * a1]
         else
          a * a1
          :: (if (b * a1 == a1) || (b * a1 \in l)
              then [::]
              else [:: b * a1])) l -> 0 < i
  by case/orP=> /eqP->; rewrite muln1 ltnW.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
i
  \in merge leq
        (if (a * a1 == a1) || (a * a1 \in l)
         then
          if (b * a1 == a1) || (b * a1 \in l)
          then [::]
          else [:: b * a1]
         else
          a * a1
          :: (if (b * a1 == a1) || (b * a1 \in l)
              then [::]
              else [:: b * a1])) l -> 0 < i
have H1 : 0 < a1 by apply: IH; rewrite inE eqxx.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
i
  \in merge leq
        (if (a * a1 == a1) || (a * a1 \in l)
         then
          if (b * a1 == a1) || (b * a1 \in l)
          then [::]
          else [:: b * a1]
         else
          a * a1
          :: (if (b * a1 == a1) || (b * a1 \in l)
              then [::]
              else [:: b * a1])) l -> 0 < i
have IH1 i1 : i1 \in l -> 0 < i1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
i1:nat_eqType
i1 \in l -> 0 < i1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
i
  \in merge leq
        (if (a * a1 == a1) || (a * a1 \in l)
         then
          if (b * a1 == a1) || (b * a1 \in l)
          then [::]
          else [:: b * a1]
         else
          a * a1
          :: (if (b * a1 == a1) || (b * a1 \in l)
              then [::]
              else [:: b * a1])) l -> 0 < i
  by move=> U; apply: IH; rewrite inE orbC U.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
i
  \in merge leq
        (if (a * a1 == a1) || (a * a1 \in l)
         then
          if (b * a1 == a1) || (b * a1 \in l)
          then [::]
          else [:: b * a1]
         else
          a * a1
          :: (if (b * a1 == a1) || (b * a1 \in l)
              then [::]
              else [:: b * a1])) l -> 0 < i
rewrite mem_merge.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
i
  \in (if (a * a1 == a1) || (a * a1 \in l)
       then
        if (b * a1 == a1) || (b * a1 \in l)
        then [::]
        else [:: b * a1]
       else
        a * a1
        :: (if (b * a1 == a1) || (b * a1 \in l)
            then [::]
            else [:: b * a1])) ++ l -> 0 < i
(do 2 case: (_ || _)); rewrite //= ?inE; first by apply: IH1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
(i == b * a1) || (i \in l) -> 0 < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
(i == a * a1) || (i \in l) -> 0 < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
[|| i == a * a1, i == b * a1 | i \in l] -> 0 < i
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
(i == b * a1) || (i \in l) -> 0 < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
(i == a * a1) || (i \in l) -> 0 < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
[|| i == a * a1, i == b * a1 | i \in l] -> 0 < i by case/orP=> [/eqP->|/IH1//]; rewrite muln_gt0 ltnW.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
(i == a * a1) || (i \in l) -> 0 < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
[|| i == a * a1, i == b * a1 | i \in l] -> 0 < i
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
(i == a * a1) || (i \in l) -> 0 < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
[|| i == a * a1, i == b * a1 | i \in l] -> 0 < i by case/orP=> [/eqP->|/IH1//]; rewrite muln_gt0 ltnW.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, a1:nat
l:seq nat
IH:forall i : nat, i \in a1 :: l -> 0 < i
i:nat
H1:0 < a1
IH1:forall i1 : nat_eqType, i1 \in l -> 0 < i1
[|| i == a * a1, i == b * a1 | i \in l] -> 0 < i
by case/or3P=> [/eqP->|/eqP->|/IH1//]; rewrite muln_gt0 ltnW.
Qed.

Lemma alphal_neq_nil n : alphal n != nil.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
alphal n != [::]
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
alphal n != [::]
case: n => //= n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
merge leq
  (if a * head 1 (alphal n) \in alphal n
   then
    if b * head 1 (alphal n) \in alphal n
    then [::]
    else [:: b * head 1 (alphal n)]
   else
    a * head 1 (alphal n)
    :: (if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]))
  (behead (alphal n)) != [::]
rewrite -size_eq0 size_merge.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
size
  ((if a * head 1 (alphal n) \in alphal n
    then
     if b * head 1 (alphal n) \in alphal n
     then [::]
     else [:: b * head 1 (alphal n)]
    else
     a * head 1 (alphal n)
     :: (if b * head 1 (alphal n) \in alphal n
         then [::]
         else [:: b * head 1 (alphal n)])) ++
   behead (alphal n)) != 0
case: (alphal n) (@gt0_alphal n) => //= c l H.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
H:forall i : nat, i \in c :: l -> 0 < i
size
  ((if a * c \in c :: l
    then if b * c \in c :: l then [::] else [:: b * c]
    else
     a * c
     :: (if b * c \in c :: l then [::] else [:: b * c])) ++
   l) != 0
case E : (_ \in _) => //; case : (_ \in _) => //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
H:forall i : nat, i \in c :: l -> 0 < i
E:(a * c \in c :: l) = true
size ([::] ++ l) != 0
case: l H E aL1 => // /(_ c); rewrite !inE eqxx => /(_ is_true_true).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
0 < c ->
(a * c == c) = true ->
1 < a -> size ([::] ++ [::]) != 0
case: c => // c1 _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c1:nat
(a * c1.+1 == c1.+1) = true ->
1 < a -> size ([::] ++ [::]) != 0
by rewrite -{2}[_.+1]mul1n eqn_mul2r /= => /idP/eqP->.
Qed.

Lemma uniq_alphal n : uniq (alphal n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
uniq (alphal n)
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
uniq (alphal n)
elim: n =>  /=[|n IH].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
[&& 1 \notin [:: a; b], a \notin [:: b] & true]
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:uniq (alphal n)
uniq
  (merge leq
     (if a * head 1 (alphal n) \in alphal n
      then
       if b * head 1 (alphal n) \in alphal n
       then [::]
       else [:: b * head 1 (alphal n)]
      else
       a * head 1 (alphal n)
       :: (if b * head 1 (alphal n) \in alphal n
           then [::]
           else [:: b * head 1 (alphal n)]))
     (behead (alphal n)))
  by rewrite !inE negb_or !neq_ltn aL1 aLb /= (ltn_trans aL1).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:uniq (alphal n)
uniq
  (merge leq
     (if a * head 1 (alphal n) \in alphal n
      then
       if b * head 1 (alphal n) \in alphal n
       then [::]
       else [:: b * head 1 (alphal n)]
      else
       a * head 1 (alphal n)
       :: (if b * head 1 (alphal n) \in alphal n
           then [::]
           else [:: b * head 1 (alphal n)]))
     (behead (alphal n)))
case: (alphal n) (@gt0_alphal n) IH => //= [_ _|c l U /andP[cL uL]].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
(a * 1 \notin [:: b * 1]) && true
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
uniq
  (merge leq
     (if a * c \in c :: l
      then
       if b * c \in c :: l then [::] else [:: b * c]
      else
       a * c
       :: (if b * c \in c :: l
           then [::]
           else [:: b * c])) l)
  by rewrite !inE !muln1 neq_ltn aLb.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
uniq
  (merge leq
     (if a * c \in c :: l
      then
       if b * c \in c :: l then [::] else [:: b * c]
      else
       a * c
       :: (if b * c \in c :: l
           then [::]
           else [:: b * c])) l)
(have [H1|H1] := boolP (_ \in _); have [H2|H2] := boolP (_ \in _); 
         rewrite merge_uniq); rewrite /= ?uL ?andbT //=.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \in c :: l
H2:b * c \notin c :: l
b * c \notin l
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \notin c :: l
H2:b * c \in c :: l
a * c \notin l
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \notin c :: l
H2:b * c \notin c :: l
(a * c \notin b * c :: l) && (b * c \notin l)
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \in c :: l
H2:b * c \notin c :: l
b * c \notin l
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \notin c :: l
H2:b * c \in c :: l
a * c \notin l
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \notin c :: l
H2:b * c \notin c :: l
(a * c \notin b * c :: l) && (b * c \notin l) by move: H2; rewrite inE negb_or => /andP[].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \notin c :: l
H2:b * c \in c :: l
a * c \notin l
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \notin c :: l
H2:b * c \notin c :: l
(a * c \notin b * c :: l) && (b * c \notin l)
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \notin c :: l
H2:b * c \in c :: l
a * c \notin l
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \notin c :: l
H2:b * c \notin c :: l
(a * c \notin b * c :: l) && (b * c \notin l) by move: H1; rewrite inE negb_or => /andP[].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
H1:a * c \notin c :: l
H2:b * c \notin c :: l
(a * c \notin b * c :: l) && (b * c \notin l)
move: H1 H2; rewrite !inE !negb_or => /andP[_ ->] /andP[_ ->].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
U:forall i : nat, i \in c :: l -> 0 < i
cL:c \notin l
uL:uniq l
(a * c != b * c) && true && true
by rewrite eqn_mul2r negb_or !neq_ltn aLb U ?orbT // inE eqxx.
Qed.

Lemma alpha_ltn n : alpha n < alpha n.+1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
alpha n < alpha n.+1
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
alpha n < alpha n.+1
rewrite /alpha /=.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
head 1 (alphal n) <
head 1
  (merge leq
     (if a * head 1 (alphal n) \in alphal n
      then
       if b * head 1 (alphal n) \in alphal n
       then [::]
       else [:: b * head 1 (alphal n)]
      else
       a * head 1 (alphal n)
       :: (if b * head 1 (alphal n) \in alphal n
           then [::]
           else [:: b * head 1 (alphal n)]))
     (behead (alphal n)))
set h := head _ _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
h <
head 1
  (merge leq
     (if a * h \in alphal n
      then
       if b * h \in alphal n then [::] else [:: b * h]
      else
       a * h
       :: (if b * h \in alphal n
           then [::]
           else [:: b * h])) (behead (alphal n)))
have hP : 0 < h.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
0 < h
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
h <
head 1
  (merge leq
     (if a * h \in alphal n
      then
       if b * h \in alphal n then [::] else [:: b * h]
      else
       a * h
       :: (if b * h \in alphal n
           then [::]
           else [:: b * h])) (behead (alphal n)))
  rewrite /h.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
0 < head 1 (alphal n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
h <
head 1
  (merge leq
     (if a * h \in alphal n
      then
       if b * h \in alphal n then [::] else [:: b * h]
      else
       a * h
       :: (if b * h \in alphal n
           then [::]
           else [:: b * h])) (behead (alphal n)))
  case: (alphal n) (@gt0_alphal n) => // c l /(_ c)-> //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
c:nat
l:seq nat
c \in c :: l
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
h <
head 1
  (merge leq
     (if a * h \in alphal n
      then
       if b * h \in alphal n then [::] else [:: b * h]
      else
       a * h
       :: (if b * h \in alphal n
           then [::]
           else [:: b * h])) (behead (alphal n)))
  by rewrite inE eqxx.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
h <
head 1
  (merge leq
     (if a * h \in alphal n
      then
       if b * h \in alphal n then [::] else [:: b * h]
      else
       a * h
       :: (if b * h \in alphal n
           then [::]
           else [:: b * h])) (behead (alphal n)))
set l1 := merge _ _ _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
h < head 1 l1
have hIl1 : head 1 l1 \in l1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
head 1 l1 \in l1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
h < head 1 l1
  have /= := alphal_neq_nil n.+1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
merge leq
  (if a * head 1 (alphal n) \in alphal n
   then
    if b * head 1 (alphal n) \in alphal n
    then [::]
    else [:: b * head 1 (alphal n)]
   else
    a * head 1 (alphal n)
    :: (if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]))
  (behead (alphal n)) != [::] -> head 1 l1 \in l1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
h < head 1 l1
  by rewrite -/l1; case: l1 => //= c l; rewrite inE eqxx.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
h < head 1 l1
suff hLi i :  i \in l1 -> h < i.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
hLi:forall i : nat_eqType, i \in l1 -> h < i
h < head 1 l1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
i \in l1 -> h < i
  by apply/hLi/hIl1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
i \in l1 -> h < i
rewrite mem_merge mem_cat.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
(i
   \in (if a * h \in alphal n
        then
         if b * h \in alphal n
         then [::]
         else [:: b * h]
        else
         a * h
         :: (if b * h \in alphal n
             then [::]
             else [:: b * h])))
|| (i \in behead (alphal n)) -> h < i
suff hLi1 : (i \in behead (alphal n)) -> h < i => [|H].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
(i
   \in (if a * h \in alphal n
        then
         if b * h \in alphal n
         then [::]
         else [:: b * h]
        else
         a * h
         :: (if b * h \in alphal n
             then [::]
             else [:: b * h])))
|| (i \in behead (alphal n)) -> h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
h < i
  have [H1|H1] := boolP (_ \in alphal _);
    have [H2|H2] := boolP (_ \in alphal _); rewrite /= ?inE -/h //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \in alphal n
H2:b * h \notin alphal n
(i == b * h) || (i \in behead (alphal n)) -> h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \notin alphal n
H2:b * h \in alphal n
(i == a * h) || (i \in behead (alphal n)) -> h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \notin alphal n
H2:b * h \notin alphal n
(i == a * h) || (i == b * h)
|| (i \in behead (alphal n)) -> 
h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
h < i
  -
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \in alphal n
H2:b * h \notin alphal n
(i == b * h) || (i \in behead (alphal n)) -> h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \notin alphal n
H2:b * h \in alphal n
(i == a * h) || (i \in behead (alphal n)) -> h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \notin alphal n
H2:b * h \notin alphal n
(i == a * h) || (i == b * h)
|| (i \in behead (alphal n)) -> 
h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
h < i by case/orP=> [/eqP->|//]; rewrite ltn_Pmull.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \notin alphal n
H2:b * h \in alphal n
(i == a * h) || (i \in behead (alphal n)) -> h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \notin alphal n
H2:b * h \notin alphal n
(i == a * h) || (i == b * h)
|| (i \in behead (alphal n)) -> 
h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
h < i
  -
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \notin alphal n
H2:b * h \in alphal n
(i == a * h) || (i \in behead (alphal n)) -> h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \notin alphal n
H2:b * h \notin alphal n
(i == a * h) || (i == b * h)
|| (i \in behead (alphal n)) -> 
h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
h < i by case/orP=> [/eqP->|//]; rewrite ltn_Pmull.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
hLi1:i \in behead (alphal n) -> h < i
H1:a * h \notin alphal n
H2:b * h \notin alphal n
(i == a * h) || (i == b * h)
|| (i \in behead (alphal n)) -> h < i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
h < i
  by rewrite -orbA => /or3P[/eqP->|/eqP->|//]; rewrite ltn_Pmull.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
h < i
have hsSa : subseq [:: h; i] (alphal n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
subseq [:: h; i] (alphal n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
hsSa:subseq [:: h; i] (alphal n)
h < i
  rewrite (_ : alphal n =  h :: behead (alphal n)).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
subseq [:: h; i] (h :: behead (alphal n))
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
alphal n = h :: behead (alphal n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
hsSa:subseq [:: h; i] (alphal n)
h < i
    rewrite (@cat_subseq _ [::h] _ [::h]) //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
subseq [:: i] (behead (alphal n))
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
alphal n = h :: behead (alphal n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
hsSa:subseq [:: h; i] (alphal n)
h < i
    by rewrite sub1seq.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
alphal n = h :: behead (alphal n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) 
  (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
hsSa:subseq [:: h; i] (alphal n)
h < i
  by rewrite /h; case: (alphal n) (alphal_neq_nil n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
hsSa:subseq [:: h; i] (alphal n)
h < i
rewrite ltn_neqAle.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
hsSa:subseq [:: h; i] (alphal n)
(h != i) && (h <= i)
have /= := subseq_sorted leq_trans hsSa (sorted_alphal n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
hsSa:subseq [:: h; i] (alphal n)
(h <= i) && true -> (h != i) && (h <= i)
rewrite andbT => ->.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
hsSa:subseq [:: h; i] (alphal n)
(h != i) && true
have /= := subseq_uniq hsSa (uniq_alphal n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
hP:0 < h
l1:=merge leq
  (if a * h \in alphal n
   then
    if b * h \in alphal n
    then [::]
    else [:: b * h]
   else
    a * h
    :: (if b * h \in alphal n
        then [::]
        else [:: b * h])) (behead (alphal n)):seq nat
hIl1:head 1 l1 \in l1
i:nat_eqType
H:i \in behead (alphal n)
hsSa:subseq [:: h; i] (alphal n)
(h \notin [:: i]) && true -> (h != i) && true
by rewrite inE.
Qed.

Lemma alpha_mono m n : m < n -> alpha m < alpha n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
m < n -> alpha m < alpha n
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
m < n -> alpha m < alpha n
elim: n => // n IH.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
IH:m < n -> alpha m < alpha n
m < n.+1 -> alpha m < alpha n.+1
have F := alpha_ltn n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
IH:m < n -> alpha m < alpha n
F:alpha n < alpha n.+1
m < n.+1 -> alpha m < alpha n.+1
by rewrite ltnS leq_eqVlt => /orP[/eqP->| /IH /ltn_trans-> //].
Qed.

Lemma alpha_inj : injective alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
injective alpha
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
injective alpha
move=> m n amEan; apply/eqP.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
amEan:alpha m = alpha n
m == n
by case: ltngtP => // /alpha_mono; rewrite amEan ltnn.
Qed.

Lemma alpha_gt0 n : 0 < alpha n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
0 < alpha n
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
0 < alpha n by case: n => // n; apply: leq_ltn_trans (alpha_ltn _). Qed.

Lemma alpha_gtn_n n : n < alpha n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
n < alpha n
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
n < alpha n by elim: n => // n IH; apply: leq_trans (alpha_ltn _). Qed.

Definition isAB i := exists m, i = a ^ m.1 * b ^ m.2.

Lemma isAB_aexp i : isAB (a ^ i).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB (a ^ i)
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB (a ^ i) by exists (i, 0); rewrite muln1. Qed.

Lemma isAB_bexp i : isAB (b ^ i).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB (b ^ i)
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB (b ^ i) by exists (0, i); rewrite mul1n. Qed.

Lemma isAB_amul i : isAB i -> isAB (a * i).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB i -> isAB (a * i)
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB i -> isAB (a * i)
case=> [] [m1 m2 /= ->]; exists (m1.+1, m2).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, m1, m2:nat
a * (a ^ m1 * b ^ m2) =
a ^ (m1.+1, m2).1 * b ^ (m1.+1, m2).2
by rewrite !mulnA expnS.
Qed.

Lemma isAB_bmul i : isAB  i-> isAB (b * i).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB i -> isAB (b * i)
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB i -> isAB (b * i)
case=> [] [m1 m2 /= ->]; exists (m1, m2.+1).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, m1, m2:nat
b * (a ^ m1 * b ^ m2) =
a ^ (m1, m2.+1).1 * b ^ (m1, m2.+1).2
by rewrite mulnCA expnS.
Qed.

Lemma isAB_alphal n i : i \in alphal n -> isAB i.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
i \in alphal n -> isAB i
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
i \in alphal n -> isAB i
elim: n i => /= [i|n IH i]; rewrite ?mem_merge ?inE.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
[|| i == 1, i == a | i == b] -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
i
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n) -> isAB i
  case/or3P => /eqP->; first by exists (0, 0).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB a
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB b
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
i
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n) -> isAB i
    by apply: (isAB_aexp 1).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
isAB b
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
i
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n) -> isAB i
  by apply: (isAB_bexp 1).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
i
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n) -> isAB i
have F : i \in behead (alphal n) -> exists m, i = a ^ m.1 * b ^ m.2.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
i
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n) -> isAB i
  by move=> U; apply: IH (mem_behead _).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
i
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n) -> isAB i
have [[m1 m2 Hm]] : exists m, head 1 (alphal n) = a ^ m.1 * b ^ m.2.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
exists m : nat * nat,
  head 1 (alphal n) = a ^ m.1 * b ^ m.2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
i
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n) -> isAB i
  case: (alphal n) IH => /= [_|c l F1]; first by exists (0, 0).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
c:nat
l:seq nat
F1:forall i : nat, i \in c :: l -> isAB i
exists m : nat * nat, c = a ^ m.1 * b ^ m.2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
i
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n) -> isAB i
  by apply: F1; rewrite inE eqxx.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
i
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n) -> isAB i
(do 2 case: (_ \in alphal _)); rewrite /= ?inE.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
i \in behead (alphal n) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == b * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == a * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
[|| i == a * head 1 (alphal n),
    i == b * head 1 (alphal n)
  | i \in behead (alphal n)] -> isAB i
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
i \in behead (alphal n) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == b * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == a * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
[|| i == a * head 1 (alphal n),
    i == b * head 1 (alphal n)
  | i \in behead (alphal n)] -> isAB i by apply: F.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == b * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == a * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
[|| i == a * head 1 (alphal n),
    i == b * head 1 (alphal n)
  | i \in behead (alphal n)] -> isAB i
rewrite /=.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == b * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == a * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
[|| i == a * head 1 (alphal n),
    i == b * head 1 (alphal n)
  | i \in behead (alphal n)] -> isAB i
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == b * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == a * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
[|| i == a * head 1 (alphal n),
    i == b * head 1 (alphal n)
  | i \in behead (alphal n)] -> isAB i case/orP=> [/eqP->|/F//]; exists (m1, m2.+1).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
b * head 1 (alphal n) =
a ^ (m1, m2.+1).1 * b ^ (m1, m2.+1).2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == a * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
[|| i == a * head 1 (alphal n),
    i == b * head 1 (alphal n)
  | i \in behead (alphal n)] -> isAB i
  by rewrite /= Hm mulnCA expnS.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == a * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
[|| i == a * head 1 (alphal n),
    i == b * head 1 (alphal n)
  | i \in behead (alphal n)] -> isAB i
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
(i == a * head 1 (alphal n))
|| (i \in behead (alphal n)) -> isAB i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
[|| i == a * head 1 (alphal n),
    i == b * head 1 (alphal n)
  | i \in behead (alphal n)] -> isAB i case/orP=> [/eqP->|/F//]; exists (m1.+1, m2).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
a * head 1 (alphal n) =
a ^ (m1.+1, m2).1 * b ^ (m1.+1, m2).2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
[|| i == a * head 1 (alphal n),
    i == b * head 1 (alphal n)
  | i \in behead (alphal n)] -> isAB i
  by rewrite Hm expnS !mulnA.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
[|| i == a * head 1 (alphal n),
    i == b * head 1 (alphal n)
  | i \in behead (alphal n)] -> isAB i
case/or3P=> [/eqP->|/eqP->|//].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
isAB (a * head 1 (alphal n))
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
isAB (b * head 1 (alphal n))
  by exists (m1.+1, m2); rewrite Hm expnS !mulnA.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat, i \in alphal n -> isAB i
i:nat
F:i \in behead (alphal n) ->
exists m : nat * nat, i = a ^ m.1 * b ^ m.2
m1, m2:nat
Hm:head 1 (alphal n) =
a ^ (m1, m2).1 * b ^ (m1, m2).2
isAB (b * head 1 (alphal n))
by exists (m1, m2.+1); rewrite /= Hm mulnCA expnS.
Qed.

Lemma isAB_alpha n : isAB (alpha n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
isAB (alpha n)
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
isAB (alpha n)
rewrite /alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
isAB (head 1 (alphal n))
case: (alphal n) (alphal_neq_nil n) 
      (@isAB_alphal n (head 1 (alphal n))) => //= c l _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
(c \in c :: l -> isAB c) -> isAB c
by apply; rewrite inE eqxx.
Qed.

Lemma in_alphal n i :
 i \in alphal n -> i != alpha n -> i \in alphal n.+1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
i \in alphal n -> i != alpha n -> i \in alphal n.+1
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
i \in alphal n -> i != alpha n -> i \in alphal n.+1
have := alpha_gt0 n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
0 < alpha n ->
i \in alphal n -> i != alpha n -> i \in alphal n.+1
rewrite  /alpha /= mem_merge mem_cat orbC.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
0 < head 1 (alphal n) ->
i \in alphal n ->
i != head 1 (alphal n) ->
(i \in behead (alphal n))
|| (i
      \in (if a * head 1 (alphal n) \in alphal n
           then
            if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)]
           else
            a * head 1 (alphal n)
            :: (if b * head 1 (alphal n) \in alphal n
                then [::]
                else [:: b * head 1 (alphal n)])))
case: (alphal n) => //= c l cP.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
c:nat
l:seq nat
cP:0 < c
i \in c :: l ->
i != c ->
(i \in l)
|| (i
      \in (if a * c \in c :: l
           then
            if b * c \in c :: l
            then [::]
            else [:: b * c]
           else
            a * c
            :: (if b * c \in c :: l
                then [::]
                else [:: b * c])))
by rewrite inE => /orP[/eqP->|->//]; rewrite eqxx.
Qed.

Lemma alpha_in_alphal n : alpha n \in alphal n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
alpha n \in alphal n
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
alpha n \in alphal n
have /= := alphal_neq_nil n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
alphal n != [::] -> alpha n \in alphal n
rewrite /alpha; case: alphal => //= c l.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, c:nat
l:seq nat
true -> c \in c :: l
by rewrite inE eqxx.
Qed.

Lemma in_alphalS n i :
 i \in alphal n.+1 -> 
 i != a * alpha n ->  i != b * alpha n ->
 i \in alphal n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
i \in alphal n.+1 ->
i != a * alpha n -> i != b * alpha n -> i \in alphal n
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
i \in alphal n.+1 ->
i != a * alpha n -> i != b * alpha n -> i \in alphal n
rewrite /alpha /=.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
i
  \in merge leq
        (if a * head 1 (alphal n) \in alphal n
         then
          if b * head 1 (alphal n) \in alphal n
          then [::]
          else [:: b * head 1 (alphal n)]
         else
          a * head 1 (alphal n)
          :: (if b * head 1 (alphal n) \in alphal n
              then [::]
              else [:: b * head 1 (alphal n)]))
        (behead (alphal n)) ->
i != a * head 1 (alphal n) ->
i != b * head 1 (alphal n) -> i \in alphal n
set h := head _ _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
h:=head 1 (alphal n):nat
i
  \in merge leq
        (if a * h \in alphal n
         then
          if b * h \in alphal n
          then [::]
          else [:: b * h]
         else
          a * h
          :: (if b * h \in alphal n
              then [::]
              else [:: b * h])) (behead (alphal n)) ->
i != a * h -> i != b * h -> i \in alphal n
rewrite mem_merge mem_cat => /orP[]; last first.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
h:=head 1 (alphal n):nat
i \in behead (alphal n) ->
i != a * h -> i != b * h -> i \in alphal n
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
h:=head 1 (alphal n):nat
i
  \in (if a * h \in alphal n
       then
        if b * h \in alphal n
        then [::]
        else [:: b * h]
       else
        a * h
        :: (if b * h \in alphal n
            then [::]
            else [:: b * h])) ->
i != a * h -> i != b * h -> i \in alphal n
  by case: alphal => //= c l; rewrite inE orbC => ->.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
i:nat_eqType
h:=head 1 (alphal n):nat
i
  \in (if a * h \in alphal n
       then
        if b * h \in alphal n
        then [::]
        else [:: b * h]
       else
        a * h
        :: (if b * h \in alphal n
            then [::]
            else [:: b * h])) ->
i != a * h -> i != b * h -> i \in alphal n
by (do 2 case: (_ \in alphal _); rewrite //= ?inE) => 
   [/eqP->|/eqP->|/orP[/eqP->|/eqP->]]; rewrite eqxx.
Qed.

Lemma a_in_alphalS n : a * alpha n \in alphal n.+1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
a * alpha n \in alphal n.+1
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
a * alpha n \in alphal n.+1
have := alpha_gt0 n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
0 < alpha n -> a * alpha n \in alphal n.+1
have := @in_alphal n (a * alpha n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
(a * alpha n \in alphal n ->
 a * alpha n != alpha n -> a * alpha n \in alphal n.+1) ->
0 < alpha n -> a * alpha n \in alphal n.+1
rewrite /alpha /= mem_merge.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
(a * head 1 (alphal n) \in alphal n ->
 a * head 1 (alphal n) != head 1 (alphal n) ->
 a * head 1 (alphal n)
   \in (if a * head 1 (alphal n) \in alphal n
        then
         if b * head 1 (alphal n) \in alphal n
         then [::]
         else [:: b * head 1 (alphal n)]
        else
         a * head 1 (alphal n)
         :: (if b * head 1 (alphal n) \in alphal n
             then [::]
             else [:: b * head 1 (alphal n)])) ++
       behead (alphal n)) ->
0 < head 1 (alphal n) ->
a * head 1 (alphal n)
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n)
set h := head _ _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
(a * h \in alphal n ->
 a * h != h ->
 a * h
   \in (if a * h \in alphal n
        then
         if b * h \in alphal n
         then [::]
         else [:: b * h]
        else
         a * h
         :: (if b * h \in alphal n
             then [::]
             else [:: b * h])) ++ behead (alphal n)) ->
0 < h ->
a * h
  \in (if a * h \in alphal n
       then
        if b * h \in alphal n
        then [::]
        else [:: b * h]
       else
        a * h
        :: (if b * h \in alphal n
            then [::]
            else [:: b * h])) ++ behead (alphal n)
have [H H1 H2|] := boolP (_ \in alphal n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
H:a * h \in alphal n
H1:true ->
a * h != h ->
a * h
  \in (if b * h \in alphal n
       then [::]
       else [:: b * h]) ++ behead (alphal n)
H2:0 < h
a * h
  \in (if b * h \in alphal n then [::] else [:: b * h]) ++
      behead (alphal n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
a * h \notin alphal n ->
(false ->
 a * h != h ->
 a * h
   \in (a * h
        :: (if b * h \in alphal n
            then [::]
            else [:: b * h])) ++ behead (alphal n)) ->
0 < h ->
a * h
  \in (a * h
       :: (if b * h \in alphal n
           then [::]
           else [:: b * h])) ++ behead (alphal n)
  apply: H1 => //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
H:a * h \in alphal n
H2:0 < h
a * h != h
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
a * h \notin alphal n ->
(false ->
 a * h != h ->
 a * h
   \in (a * h
        :: (if b * h \in alphal n
            then [::]
            else [:: b * h])) ++ behead (alphal n)) ->
0 < h ->
a * h
  \in (a * h
       :: (if b * h \in alphal n
           then [::]
           else [:: b * h])) ++ behead (alphal n)
  by rewrite -{2}[h]mul1n eqn_mul2r negb_or !neq_ltn H2 aL1 !orbT.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
a * h \notin alphal n ->
(false ->
 a * h != h ->
 a * h
   \in (a * h
        :: (if b * h \in alphal n
            then [::]
            else [:: b * h])) ++ behead (alphal n)) ->
0 < h ->
a * h
  \in (a * h
       :: (if b * h \in alphal n
           then [::]
           else [:: b * h])) ++ behead (alphal n)
by rewrite mem_cat inE eqxx.
Qed.

Lemma b_in_alphalS n : b * alpha n \in alphal n.+1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
b * alpha n \in alphal n.+1
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
b * alpha n \in alphal n.+1
have := alpha_gt0 n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
0 < alpha n -> b * alpha n \in alphal n.+1
have := @in_alphal n (b * alpha n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
(b * alpha n \in alphal n ->
 b * alpha n != alpha n -> b * alpha n \in alphal n.+1) ->
0 < alpha n -> b * alpha n \in alphal n.+1
rewrite /alpha /= mem_merge.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
(b * head 1 (alphal n) \in alphal n ->
 b * head 1 (alphal n) != head 1 (alphal n) ->
 b * head 1 (alphal n)
   \in (if a * head 1 (alphal n) \in alphal n
        then
         if b * head 1 (alphal n) \in alphal n
         then [::]
         else [:: b * head 1 (alphal n)]
        else
         a * head 1 (alphal n)
         :: (if b * head 1 (alphal n) \in alphal n
             then [::]
             else [:: b * head 1 (alphal n)])) ++
       behead (alphal n)) ->
0 < head 1 (alphal n) ->
b * head 1 (alphal n)
  \in (if a * head 1 (alphal n) \in alphal n
       then
        if b * head 1 (alphal n) \in alphal n
        then [::]
        else [:: b * head 1 (alphal n)]
       else
        a * head 1 (alphal n)
        :: (if b * head 1 (alphal n) \in alphal n
            then [::]
            else [:: b * head 1 (alphal n)])) ++
      behead (alphal n)
set h := head _ _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
(b * h \in alphal n ->
 b * h != h ->
 b * h
   \in (if a * h \in alphal n
        then
         if b * h \in alphal n
         then [::]
         else [:: b * h]
        else
         a * h
         :: (if b * h \in alphal n
             then [::]
             else [:: b * h])) ++ behead (alphal n)) ->
0 < h ->
b * h
  \in (if a * h \in alphal n
       then
        if b * h \in alphal n
        then [::]
        else [:: b * h]
       else
        a * h
        :: (if b * h \in alphal n
            then [::]
            else [:: b * h])) ++ behead (alphal n)
have [H H1 H2|] := boolP (b * _ \in alphal n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
H:b * h \in alphal n
H1:true ->
b * h != h ->
b * h
  \in (if a * h \in alphal n
       then [::]
       else [:: a * h]) ++ behead (alphal n)
H2:0 < h
b * h
  \in (if a * h \in alphal n then [::] else [:: a * h]) ++
      behead (alphal n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
b * h \notin alphal n ->
(false ->
 b * h != h ->
 b * h
   \in (if a * h \in alphal n
        then [:: b * h]
        else [:: a * h; b * h]) ++ behead (alphal n)) ->
0 < h ->
b * h
  \in (if a * h \in alphal n
       then [:: b * h]
       else [:: a * h; b * h]) ++ behead (alphal n)
  apply: H1 => //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
H:b * h \in alphal n
H2:0 < h
b * h != h
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
b * h \notin alphal n ->
(false ->
 b * h != h ->
 b * h
   \in (if a * h \in alphal n
        then [:: b * h]
        else [:: a * h; b * h]) ++ behead (alphal n)) ->
0 < h ->
b * h
  \in (if a * h \in alphal n
       then [:: b * h]
       else [:: a * h; b * h]) ++ behead (alphal n)
  by rewrite -{2}[h]mul1n eqn_mul2r negb_or !neq_ltn H2 bL1 !orbT.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
h:=head 1 (alphal n):nat
b * h \notin alphal n ->
(false ->
 b * h != h ->
 b * h
   \in (if a * h \in alphal n
        then [:: b * h]
        else [:: a * h; b * h]) ++ behead (alphal n)) ->
0 < h ->
b * h
  \in (if a * h \in alphal n
       then [:: b * h]
       else [:: a * h; b * h]) ++ behead (alphal n)
by have [] := boolP (a * _ \in alphal n); rewrite mem_cat !inE eqxx // orbT.
Qed.

Lemma alpha_surjective m n : {k | alpha k = a ^ m * b ^ n}.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
{k : nat | alpha k = a ^ m * b ^ n}
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
{k : nat | alpha k = a ^ m * b ^ n}
pose P p := has (fun i => i %| a ^ m * b ^ n) (alphal p).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
{k : nat | alpha k = a ^ m * b ^ n}
have F1 : exists n, P n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
exists n : nat, P n
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
{k : nat | alpha k = a ^ m * b ^ n}
  by exists 0; apply/hasP; exists 1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
{k : nat | alpha k = a ^ m * b ^ n}
have F2 : 0 < a ^ m *  b ^ n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
0 < a ^ m * b ^ n
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
{k : nat | alpha k = a ^ m * b ^ n}
  rewrite muln_gt0 !expn_gt0 ?(ltn_trans _ aLb) (ltn_trans _ aL1) //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
{k : nat | alpha k = a ^ m * b ^ n}
have F3 p : P p -> p <= alpha (a ^ m * b ^ n).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
P p -> p <= alpha (a ^ m * b ^ n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
{k : nat | alpha k = a ^ m * b ^ n}
  move=> /hasP[q] qIa.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
q:nat_eqType
qIa:q \in alphal p
q %| a ^ m * b ^ n -> p <= alpha (a ^ m * b ^ n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
{k : nat | alpha k = a ^ m * b ^ n}
  suff F : alpha p <= q.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
q:nat_eqType
qIa:q \in alphal p
F:alpha p <= q
q %| a ^ m * b ^ n -> p <= alpha (a ^ m * b ^ n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
q:nat_eqType
qIa:q \in alphal p
alpha p <= q
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
{k : nat | alpha k = a ^ m * b ^ n}
     move=> /(dvdn_leq F2) H.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
q:nat_eqType
qIa:q \in alphal p
F:alpha p <= q
H:q <= a ^ m * b ^ n
p <= alpha (a ^ m * b ^ n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
q:nat_eqType
qIa:q \in alphal p
alpha p <= q
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
{k : nat | alpha k = a ^ m * b ^ n}
     rewrite ltnW // (leq_trans (alpha_gtn_n _)) //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
q:nat_eqType
qIa:q \in alphal p
F:alpha p <= q
H:q <= a ^ m * b ^ n
alpha p <= alpha (a ^ m * b ^ n)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
q:nat_eqType
qIa:q \in alphal p
alpha p <= q
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
{k : nat | alpha k = a ^ m * b ^ n}
     by rewrite (leq_trans F) // (leq_trans H) // ltnW // alpha_gtn_n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
q:nat_eqType
qIa:q \in alphal p
alpha p <= q
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
{k : nat | alpha k = a ^ m * b ^ n}
  have /= := sorted_alphal p; rewrite /alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
q:nat_eqType
qIa:q \in alphal p
sorted leq (alphal p) -> head 1 (alphal p) <= q
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
{k : nat | alpha k = a ^ m * b ^ n}
  case: (alphal _) qIa => //= a1 l.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
p:nat
q:nat_eqType
a1:nat
l:seq nat
q \in a1 :: l -> path leq a1 l -> a1 <= q
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
{k : nat | alpha k = a ^ m * b ^ n}
  by rewrite inE => /orP[/eqP->//|qIl /(order_path_min leq_trans) /allP/(_ _ qIl)].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
{k : nat | alpha k = a ^ m * b ^ n}
exists (ex_maxn F1 F3).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
alpha (ex_maxn F1 F3) = a ^ m * b ^ n
case: ex_maxnP => i /hasP[x xIa] Hx Fx.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
alpha i = a ^ m * b ^ n
have : ~~ P i.+1 by apply/negP=> /Fx; rewrite ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
~~ P i.+1 -> alpha i = a ^ m * b ^ n
move/hasPn => FF.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
alpha i = a ^ m * b ^ n
have F4 : x = alpha i.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
x = alpha i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
alpha i = a ^ m * b ^ n
  by apply/eqP; case: eqP=> // /eqP /(in_alphal xIa) /FF/negP[].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
alpha i = a ^ m * b ^ n
case: (isAB_alpha i) => [] [m1 n1 F5].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
alpha i = a ^ m * b ^ n
have Cabe m2 n2 : coprime (a ^ m2) (b ^ n2).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
m2, n2:nat
coprime (a ^ m2) (b ^ n2)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
alpha i = a ^ m * b ^ n
  case: m2 => [|m2]; first by rewrite coprime1n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
n2, m2:nat
coprime (a ^ m2.+1) (b ^ n2)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
alpha i = a ^ m * b ^ n
  case: n2 => [|n2]; first by rewrite coprimen1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
m2, n2:nat
coprime (a ^ m2.+1) (b ^ n2.+1)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
alpha i = a ^ m * b ^ n
  by rewrite coprime_pexpl // coprime_pexpr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Hx:x %| a ^ m * b ^ n
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
alpha i = a ^ m * b ^ n
move: Hx.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
x %| a ^ m * b ^ n -> alpha i = a ^ m * b ^ n
rewrite F4 F5 Gauss_dvd //=.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
(a ^ m1 %| a ^ m * b ^ n) && (b ^ n1 %| a ^ m * b ^ n) ->
a ^ m1 * b ^ n1 = a ^ m * b ^ n
rewrite Gauss_dvdl // Gauss_dvdr 1?coprime_sym // .
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
(a ^ m1 %| a ^ m) && (b ^ n1 %| b ^ n) ->
a ^ m1 * b ^ n1 = a ^ m * b ^ n
rewrite !dvdn_Pexp2l //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
(m1 <= m) && (n1 <= n) ->
a ^ m1 * b ^ n1 = a ^ m * b ^ n
rewrite leq_eqVlt => /andP[/orP[/eqP mEm1|H1 H2]]; last first.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
H1:m1 < m
H2:n1 <= n
a ^ m1 * b ^ n1 = a ^ m * b ^ n
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
mEm1:m1 = m
n1 <= n -> a ^ m1 * b ^ n1 = a ^ m * b ^ n
  case/negP: (FF _ (a_in_alphalS _)).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
H1:m1 < m
H2:n1 <= n
a * alpha i %| a ^ m * b ^ n
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
mEm1:m1 = m
n1 <= n -> a ^ m1 * b ^ n1 = a ^ m * b ^ n
  rewrite F5 /= mulnA -expnS.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
H1:m1 < m
H2:n1 <= n
a ^ m1.+1 * b ^ n1 %| a ^ m * b ^ n
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
mEm1:m1 = m
n1 <= n -> a ^ m1 * b ^ n1 = a ^ m * b ^ n
  by apply: dvdn_mul; apply: dvdn_exp2l.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
mEm1:m1 = m
n1 <= n -> a ^ m1 * b ^ n1 = a ^ m * b ^ n
rewrite leq_eqVlt => /orP[/eqP nEn1 //|H1]; first by rewrite mEm1 nEn1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
mEm1:m1 = m
H1:n1 < n
a ^ m1 * b ^ n1 = a ^ m * b ^ n
case/negP: (FF _ (b_in_alphalS _)).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
mEm1:m1 = m
H1:n1 < n
b * alpha i %| a ^ m * b ^ n
rewrite mulnC F5 mEm1 /= -mulnA -expnSr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
m, n:nat
P:=fun p : nat =>
has (dvdn^~ (a ^ m * b ^ n)) (alphal p):nat -> bool
F1:exists n : nat, P n
F2:0 < a ^ m * b ^ n
F3:forall p : nat, P p -> p <= alpha (a ^ m * b ^ n)
i:nat
x:nat_eqType
xIa:x \in alphal i
Fx:forall j : nat, P j -> j <= i
FF:{in alphal i.+1,
  forall x : nat_eqType, ~~ (x %| a ^ m * b ^ n)}
F4:x = alpha i
m1, n1:nat
F5:alpha i = a ^ (m1, n1).1 * b ^ (m1, n1).2
Cabe:forall m2 n2 : nat, coprime (a ^ m2) (b ^ n2)
mEm1:m1 = m
H1:n1 < n
a ^ m * b ^ n1.+1 %| a ^ m * b ^ n
by apply: dvdn_mul; apply: dvdn_exp2l.
Qed.

Lemma isAB_leq_alphaSn i v : isAB v -> alpha i < v -> alpha i.+1 <= v.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v:nat
isAB v -> alpha i < v -> alpha i.+1 <= v
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v:nat
isAB v -> alpha i < v -> alpha i.+1 <= v
case=> [] [m1 m2 ->].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v, m1, m2:nat
alpha i < a ^ (m1, m2).1 * b ^ (m1, m2).2 ->
alpha i.+1 <= a ^ (m1, m2).1 * b ^ (m1, m2).2
case: (alpha_surjective m1 m2) => j <- iLj.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v, m1, m2, j:nat
iLj:alpha i < alpha j
alpha i.+1 <= alpha j
case: (leqP i.+1 j) => [|H].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v, m1, m2, j:nat
iLj:alpha i < alpha j
i < j -> alpha i.+1 <= alpha j
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v, m1, m2, j:nat
iLj:alpha i < alpha j
H:j < i.+1
alpha i.+1 <= alpha j
  by rewrite leq_eqVlt => /orP[/eqP->//|/alpha_mono/ltnW].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v, m1, m2, j:nat
iLj:alpha i < alpha j
H:j < i.+1
alpha i.+1 <= alpha j
move: H iLj; rewrite [alpha _ < _]ltnNge.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v, m1, m2, j:nat
j < i.+1 ->
~~ (alpha j <= alpha i) -> alpha i.+1 <= alpha j
rewrite ltnS leq_eqVlt => /orP[/eqP->//|/alpha_mono/ltnW->//].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v, m1, m2, j:nat
~~ (alpha i <= alpha i) -> alpha i.+1 <= alpha i
by rewrite leqnn.
Qed.

Lemma alpha_leq_double i : alpha i.+1 <= a * alpha i.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
alpha i.+1 <= a * alpha i
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
alpha i.+1 <= a * alpha i
apply: isAB_leq_alphaSn; first by apply/isAB_amul/isAB_alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
alpha i < a * alpha i
by rewrite -[X in X < _]mul1n ltn_mul2r alpha_gt0.
Qed.

Lemma isAB_geq_alphaSn i v : isAB v -> v < alpha i.+1 -> v <= alpha i.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v:nat
isAB v -> v < alpha i.+1 -> v <= alpha i
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v:nat
isAB v -> v < alpha i.+1 -> v <= alpha i
move => isAB; have := @isAB_leq_alphaSn i _ isAB.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i, v:nat
isAB:Main.isAB v
(alpha i < v -> alpha i.+1 <= v) ->
v < alpha i.+1 -> v <= alpha i
by do 2 case: leqP => // _.
Qed.

Lemma sum_alpha_leq n i : 
  i <= n ->
 \sum_(j < n) alpha j <= (a * \sum_(j < (n - i)) alpha j) + \sum_(j < i) b ^ j.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
i <= n ->
\sum_(j < n) alpha j <=
a * (\sum_(j < n - i) alpha j) + \sum_(j < i) b ^ j
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
i <= n ->
\sum_(j < n) alpha j <=
a * (\sum_(j < n - i) alpha j) + \sum_(j < i) b ^ j
move=> iLn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
\sum_(j < n) alpha j <=
a * (\sum_(j < n - i) alpha j) + \sum_(j < i) b ^ j
rewrite -!(big_mkord xpredT) big_distrr /=.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
\sum_(0 <= i < n) alpha i <=
\sum_(0 <= i < n - i) a * alpha i +
\sum_(0 <= i < i) b ^ i
suff aux : forall u v w n n0 n1 : nat,
           u = v + w ->
          (v != 0) * alpha n <= a * alpha n0 ->
          (w != 0) * alpha n <= b ^ n1 ->
          \sum_(n <= i0 < n + u) alpha i0 <=
          \sum_(n0 <= i < n0 + v) a * alpha i +
          \sum_(n1 <= i0 < n1 + w) b ^ i0.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
aux:forall u v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i + \sum_(n1 <= i0 < n1 + w) b ^ i0
\sum_(0 <= i < n) alpha i <=
\sum_(0 <= i < n - i) a * alpha i +
\sum_(0 <= i < i) b ^ i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
forall u v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
  rewrite -{1}[n]add0n -{1}[n - i]add0n -{2}[i]add0n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
aux:forall u v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i + \sum_(n1 <= i0 < n1 + w) b ^ i0
\sum_(0 <= i < 0 + n) alpha i <=
\sum_(0 <= i < 0 + (n - i)) a * alpha i +
\sum_(0 <= i < 0 + i) b ^ i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
forall u v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
  apply: aux => //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
n = n - i + i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
(n - i != 0) * alpha 0 <= a * alpha 0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
(i != 0) * alpha 0 <= b ^ 0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
forall u v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
  -
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
n = n - i + i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
(n - i != 0) * alpha 0 <= a * alpha 0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
(i != 0) * alpha 0 <= b ^ 0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
forall u v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0 by rewrite subnK.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
(n - i != 0) * alpha 0 <= a * alpha 0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
(i != 0) * alpha 0 <= b ^ 0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
forall u v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
  -
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
(n - i != 0) * alpha 0 <= a * alpha 0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
(i != 0) * alpha 0 <= b ^ 0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
forall u v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0 by rewrite !muln1; apply: leq_trans aL1; case: eqP.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
(i != 0) * alpha 0 <= b ^ 0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
forall u v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
  by rewrite muln1; case: eqP.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLn:i <= n
forall u v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
elim => {i iLn}[[] [] // i j k _ _| 
                     u IH [|v] [|w] // i j k uvw aM1 aM2].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i, j, k:nat
(0 != 0) * alpha i <= b ^ k ->
\sum_(i <= i0 < i + 0) alpha i0 <=
\sum_(j <= i < j + 0) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + 0) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i, j, k:nat
(0 != 0) * alpha i <= b ^ k ->
\sum_(i <= i0 < i + 0) alpha i0 <=
\sum_(j <= i < j + 0) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + 0) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0 by rewrite !addn0 big_geq.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + 0) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + 0) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0 rewrite big_ltn; last by rewrite addnS leq_addr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
\sum_(j <= i < j + 0) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite [X in _ <= _ + X]big_ltn; last by rewrite addnS leq_addr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
\sum_(j <= i < j + 0) a * alpha i +
(b ^ k + \sum_(k.+1 <= i < k + w.+1) b ^ i)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite addnCA.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
b ^ k +
(\sum_(j <= i < j + 0) a * alpha i +
 \sum_(k.+1 <= i < k + w.+1) b ^ i)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: leq_add; first by rewrite mul1n in aM2.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i.+1 <= i < i + u.+1) alpha i <=
\sum_(j <= i < j + 0) a * alpha i +
\sum_(k.+1 <= i < k + w.+1) b ^ i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite -!addSnnS.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i.+1 <= i < i.+1 + u) alpha i <=
\sum_(j <= i < j + 0) a * alpha i +
\sum_(k.+1 <= i < k.+1 + w) b ^ i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: IH => //; first by case: uvw.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
(w != 0) * alpha i.+1 <= b ^ k.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  case: (w) => // w1 //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
w1:nat
(w1.+1 != 0) * alpha i.+1 <= b ^ k.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite !mul1n in aM2 |- *.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
w1:nat
aM2:alpha i <= b ^ k
alpha i.+1 <= b ^ k.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  suff /leq_trans-> : alpha i.+1 <= a * alpha i => //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
w1:nat
aM2:alpha i <= b ^ k
a * alpha i <= b ^ k.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
w1:nat
aM2:alpha i <= b ^ k
alpha i.+1 <= a * alpha i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
    by rewrite expnS; apply: leq_mul => //; apply: ltnW.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, w, i, j, k:nat
uvw:u.+1 = 0 + w.+1
aM1:(0 != 0) * alpha i <= a * alpha j
w1:nat
aM2:alpha i <= b ^ k
alpha i.+1 <= a * alpha i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  by apply: alpha_leq_double.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0 rewrite big_ltn; last by rewrite addnS leq_addr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite [X in _ <= X + _]big_ltn; last by rewrite addnS leq_addr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
a * alpha j + \sum_(j.+1 <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite -addnA.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
a * alpha j +
(\sum_(j.+1 <= i < j + v.+1) a * alpha i +
 \sum_(k <= i0 < k + 0) b ^ i0)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: leq_add; first by rewrite mul1n in aM1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i.+1 <= i < i + u.+1) alpha i <=
\sum_(j.+1 <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite -!addSnnS.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
\sum_(i.+1 <= i < i.+1 + u) alpha i <=
\sum_(j.+1 <= i < j.+1 + v) a * alpha i +
\sum_(k <= i0 < k + 0) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: IH => //; first by case: uvw.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
(v != 0) * alpha i.+1 <= a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  case: (v) => // v1 //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(0 != 0) * alpha i <= b ^ k
v1:nat
(v1.+1 != 0) * alpha i.+1 <= a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite !mul1n in aM1 |- *.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM2:(0 != 0) * alpha i <= b ^ k
v1:nat
aM1:alpha i <= a * alpha j
alpha i.+1 <= a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: isAB_leq_alphaSn; first by apply/isAB_amul/isAB_alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM2:(0 != 0) * alpha i <= b ^ k
v1:nat
aM1:alpha i <= a * alpha j
alpha i < a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: leq_ltn_trans aM1 _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, i, j, k:nat
uvw:u.+1 = v.+1 + 0
aM2:(0 != 0) * alpha i <= b ^ k
v1:nat
a * alpha j < a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  by rewrite ltn_mul2l ltnW // alpha_ltn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
have aM3 : alpha i.+1 <= a * alpha j.+1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
alpha i.+1 <= a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite !mul1n in aM1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM1:alpha i <= a * alpha j
alpha i.+1 <= a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: isAB_leq_alphaSn; first by apply/isAB_amul/isAB_alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM1:alpha i <= a * alpha j
alpha i < a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: leq_ltn_trans aM1 _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM2:(w.+1 != 0) * alpha i <= b ^ k
a * alpha j < a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  by rewrite ltn_mul2l ltnW // alpha_ltn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
case: (leqP (a * alpha j) (b ^ k)) => [|bLaa].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
a * alpha j <= b ^ k ->
\sum_(i <= i1 < i + u.+1) alpha i1 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i1 < k + w.+1) b ^ i1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
a * alpha j <= b ^ k ->
\sum_(i <= i1 < i + u.+1) alpha i1 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i1 < k + w.+1) b ^ i1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0 rewrite leq_eqVlt => /orP[/eqP aaEb |aaLb].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaEb:a * alpha j = b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  have : a %| b ^ k by rewrite -aaEb dvdn_mulr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaEb:a * alpha j = b ^ k
a %| b ^ k ->
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  move/gcdn_idPl.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaEb:a * alpha j = b ^ k
gcdn a (b ^ k) = a ->
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  have /eqP-> := coprimeXr k aCb.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaEb:a * alpha j = b ^ k
1 = a ->
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  by case: a aL1 => // [] [].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
-
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0 rewrite big_ltn; last by rewrite addnS leq_addr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite [X in _ <= X + _]big_ltn; last by rewrite addnS leq_addr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
a * alpha j + \sum_(j.+1 <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite -addnA.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
a * alpha j +
(\sum_(j.+1 <= i < j + v.+1) a * alpha i +
 \sum_(k <= i0 < k + w.+1) b ^ i0)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: leq_add; first by rewrite mul1n in aM1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
\sum_(i.+1 <= i < i + u.+1) alpha i <=
\sum_(j.+1 <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite -2!addSnnS.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
\sum_(i.+1 <= i < i.+1 + u) alpha i <=
\sum_(j.+1 <= i < j.+1 + v) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: IH => //; first by case: uvw.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
(v != 0) * alpha i.+1 <= a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
(w.+1 != 0) * alpha i.+1 <= b ^ k
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
    case: (v) => // v1 //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
v1:nat
(v1.+1 != 0) * alpha i.+1 <= a * alpha j.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
(w.+1 != 0) * alpha i.+1 <= b ^ k
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
    by rewrite !mul1n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
(w.+1 != 0) * alpha i.+1 <= b ^ k
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  rewrite !mul1n in aM1, aM2 |- *.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
aM1:alpha i <= a * alpha j
aM2:alpha i <= b ^ k
alpha i.+1 <= b ^ k
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  apply: isAB_leq_alphaSn (isAB_bexp _) _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM3:alpha i.+1 <= a * alpha j.+1
aaLb:a * alpha j < b ^ k
aM1:alpha i <= a * alpha j
aM2:alpha i <= b ^ k
alpha i < b ^ k
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
  by apply: leq_ltn_trans aaLb.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i <= i0 < i + u.+1) alpha i0 <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
rewrite big_ltn; last by rewrite addnS leq_addr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k <= i0 < k + w.+1) b ^ i0
rewrite [X in _ <= _ + X]big_ltn; last by rewrite addnS leq_addr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
\sum_(j <= i < j + v.+1) a * alpha i +
(b ^ k + \sum_(k.+1 <= i < k + w.+1) b ^ i)
rewrite addnCA.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
alpha i + \sum_(i.+1 <= i < i + u.+1) alpha i <=
b ^ k +
(\sum_(j <= i < j + v.+1) a * alpha i +
 \sum_(k.+1 <= i < k + w.+1) b ^ i)
apply: leq_add; first by rewrite mul1n in aM2.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i.+1 <= i < i + u.+1) alpha i <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k.+1 <= i < k + w.+1) b ^ i
rewrite -addSnnS -(addSnnS k).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u:nat
IH:forall v w n n0 n1 : nat,
u = v + w ->
(v != 0) * alpha n <= a * alpha n0 ->
(w != 0) * alpha n <= b ^ n1 ->
\sum_(n <= i0 < n + u) alpha i0 <=
\sum_(n0 <= i < n0 + v) a * alpha i +
\sum_(n1 <= i0 < n1 + w) b ^ i0
v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
\sum_(i.+1 <= i < i.+1 + u) alpha i <=
\sum_(j <= i < j + v.+1) a * alpha i +
\sum_(k.+1 <= i < k.+1 + w) b ^ i
apply: IH => //; first by move: uvw; rewrite addnS => [[]].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
(v.+1 != 0) * alpha i.+1 <= a * alpha j
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
(w != 0) * alpha i.+1 <= b ^ k.+1
  rewrite !mul1n in aM1, aM2 |- *.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
aM1:alpha i <= a * alpha j
aM2:alpha i <= b ^ k
alpha i.+1 <= a * alpha j
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
(w != 0) * alpha i.+1 <= b ^ k.+1
  apply: isAB_leq_alphaSn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
aM1:alpha i <= a * alpha j
aM2:alpha i <= b ^ k
isAB (a * alpha j)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
aM1:alpha i <= a * alpha j
aM2:alpha i <= b ^ k
alpha i < a * alpha j
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
(w != 0) * alpha i.+1 <= b ^ k.+1
    by apply: isAB_amul; apply: isAB_alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
aM1:alpha i <= a * alpha j
aM2:alpha i <= b ^ k
alpha i < a * alpha j
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
(w != 0) * alpha i.+1 <= b ^ k.+1
  by apply: leq_ltn_trans bLaa.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
(w != 0) * alpha i.+1 <= b ^ k.+1
case: (w) => // w1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM1:(v.+1 != 0) * alpha i <= a * alpha j
aM2:(w.+1 != 0) * alpha i <= b ^ k
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
w1:nat
(w1.+1 != 0) * alpha i.+1 <= b ^ k.+1
rewrite !mul1n in aM1, aM2 |- *.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
w1:nat
aM1:alpha i <= a * alpha j
aM2:alpha i <= b ^ k
alpha i.+1 <= b ^ k.+1
apply: isAB_leq_alphaSn (isAB_bexp _) _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
w1:nat
aM1:alpha i <= a * alpha j
aM2:alpha i <= b ^ k
alpha i < b ^ k.+1
apply: leq_ltn_trans aM2 _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, u, v, w, i, j, k:nat
uvw:u.+1 = v.+1 + w.+1
aM3:alpha i.+1 <= a * alpha j.+1
bLaa:b ^ k < a * alpha j
w1:nat
aM1:alpha i <= a * alpha j
b ^ k < b ^ k.+1
by rewrite ltn_exp2l.
Qed.

Lemma alpha0 : alpha 0 = 1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
alpha 0 = 1
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
alpha 0 = 1 by []. Qed.

Lemma alpha1 : alpha 1 = a.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
alpha 1 = a
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
alpha 1 = a 
by rewrite /alpha /= !ifT //= muln1 !inE eqxx ?orbT.
Qed.

Lemma b_exp_leq k n : b ^ k <= alpha n -> k <= n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
k, n:nat
b ^ k <= alpha n -> k <= n
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
k, n:nat
b ^ k <= alpha n -> k <= n
elim: n k => [k|n IH [|k Hk]//].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
k:nat
b ^ k <= alpha 0 -> k <= 0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall k : nat, b ^ k <= alpha n -> k <= n
k:nat
Hk:b ^ k.+1 <= alpha n.+1
k < n.+1
  by rewrite -[alpha 0]/(b ^ 0) leq_exp2l.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall k : nat, b ^ k <= alpha n -> k <= n
k:nat
Hk:b ^ k.+1 <= alpha n.+1
k < n.+1
apply/IH/(isAB_geq_alphaSn (isAB_bexp _)).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall k : nat, b ^ k <= alpha n -> k <= n
k:nat
Hk:b ^ k.+1 <= alpha n.+1
b ^ k < alpha n.+1
by apply: leq_trans Hk; rewrite ltn_exp2l.
Qed.

Lemma alpha_exp_bound n : alpha n < b ^ n.+1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
alpha n < b ^ n.+1
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
alpha n < b ^ n.+1 by rewrite ltnNge; apply/negP => /b_exp_leq; rewrite ltnn. Qed.

Lemma b_exp_ltn k n : b ^ k < alpha n -> k < n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
k, n:nat
b ^ k < alpha n -> k < n
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
k, n:nat
b ^ k < alpha n -> k < n
case: n => [|n H]; first by rewrite ltnNge expn_gt0 (leq_trans _ bL1).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
k, n:nat
H:b ^ k < alpha n.+1
k < n.+1
by rewrite ltnS; apply/b_exp_leq/(isAB_geq_alphaSn (isAB_bexp _)).
Qed.

Lemma alpha_b_eq n i : 
   b ^ i < alpha n.+1 < b ^ i.+1 -> alpha n.+1 = a * alpha (n - i).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
b ^ i < alpha n.+1 < b ^ i.+1 ->
alpha n.+1 = a * alpha (n - i)
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
b ^ i < alpha n.+1 < b ^ i.+1 ->
alpha n.+1 = a * alpha (n - i)
move=> /andP[beLa aLbe].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
alpha n.+1 = a * alpha (n - i)
have iLm : i <= n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
i <= n
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
alpha n.+1 = a * alpha (n - i)
  apply/b_exp_leq/isAB_geq_alphaSn => //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
isAB (b ^ i)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
alpha n.+1 = a * alpha (n - i)
  by exists (0, i); rewrite mul1n.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
alpha n.+1 = a * alpha (n - i)
have [[[|x] y] Hxy] : isAB (alpha n.+1) by apply: isAB_alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
y:nat
Hxy:alpha n.+1 = a ^ (0, y).1 * b ^ (0, y).2
alpha n.+1 = a * alpha (n - i)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
alpha n.+1 = a * alpha (n - i)
  move: beLa aLbe; rewrite Hxy.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLm:i <= n
y:nat
Hxy:alpha n.+1 = a ^ (0, y).1 * b ^ (0, y).2
b ^ i < a ^ (0, y).1 * b ^ (0, y).2 ->
a ^ (0, y).1 * b ^ (0, y).2 < b ^ i.+1 ->
a ^ (0, y).1 * b ^ (0, y).2 = a * alpha (n - i)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
alpha n.+1 = a * alpha (n - i)
  rewrite mul1n !(ltn_exp2l _ _ bL1) ltnS.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
iLm:i <= n
y:nat
Hxy:alpha n.+1 = a ^ (0, y).1 * b ^ (0, y).2
i < (0, y).2 ->
(0, y).2 <= i -> b ^ (0, y).2 = a * alpha (n - i)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
alpha n.+1 = a * alpha (n - i)
  by case: leqP.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
alpha n.+1 = a * alpha (n - i)
case: (alpha_surjective x y) => k Hk.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
alpha n.+1 = a * alpha (n - i)
pose la := [seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
alpha n.+1 = a * alpha (n - i)
pose lb := [seq b ^ (j : 'I_ i.+1) | j <- enum 'I_i.+1].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
alpha n.+1 = a * alpha (n - i)
pose lc := [seq a * alpha (j : 'I_(n - i)) | j <- enum 'I_(n- i)].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
alpha n.+1 = a * alpha (n - i)
have Ula : uniq la.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
uniq la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
alpha n.+1 = a * alpha (n - i)
  rewrite map_inj_uniq; first by apply: enum_uniq.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
injective (fun j : 'I_n.+2 => alpha j)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
alpha n.+1 = a * alpha (n - i)
  move=> k1 k2 H.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
k1, k2:ordinal_eqType n.+2
H:alpha k1 = alpha k2
k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
alpha n.+1 = a * alpha (n - i)
  case: (leqP k1 k2)=> [|/alpha_mono]; last by rewrite H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
k1, k2:ordinal_eqType n.+2
H:alpha k1 = alpha k2
k1 <= k2 -> k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
alpha n.+1 = a * alpha (n - i)
  by rewrite leq_eqVlt => /orP[/val_eqP//|/alpha_mono]; rewrite H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
alpha n.+1 = a * alpha (n - i)
have Sla : size la = n.+2 by rewrite size_map size_enum_ord.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
alpha n.+1 = a * alpha (n - i)
pose la1:= [seq x <- la | a %| x].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
alpha n.+1 = a * alpha (n - i)
pose la2 := [seq x <- la | ~~ (a %| x)].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
alpha n.+1 = a * alpha (n - i)
pose lk := [seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
alpha n.+1 = a * alpha (n - i)
have Slk : size lk = k.+1 by rewrite size_map size_enum_ord.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
alpha n.+1 = a * alpha (n - i)
have lkEla1 : lk =i la1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lk =i la1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
  move=> u; rewrite mem_filter.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(u \in lk) = (a %| u) && (u \in la)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
  apply/mapP/idP.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(exists2 x : ordinal_eqType k.+1,
   x \in enum 'I_k.+1 & u = a * alpha x) ->
(a %| u) && (u \in la)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    case => z Hz ->; rewrite dvdn_mulr //=.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
a * alpha z \in la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    have [[x1 y1] Hx1y1] : isAB (alpha z) by apply: isAB_alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
a * alpha z \in la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    case: (alpha_surjective x1.+1 y1) => t Ht.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
t:nat
Ht:alpha t = a ^ x1.+1 * b ^ y1
a * alpha z \in la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    suff H1t : t < n.+2.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
t:nat
Ht:alpha t = a ^ x1.+1 * b ^ y1
H1t:t < n.+2
a * alpha z \in la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
t:nat
Ht:alpha t = a ^ x1.+1 * b ^ y1
t < n.+2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
      apply/mapP; exists (Ordinal H1t); first by rewrite mem_enum.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
t:nat
Ht:alpha t = a ^ x1.+1 * b ^ y1
H1t:t < n.+2
a * alpha z = alpha (Ordinal H1t)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
t:nat
Ht:alpha t = a ^ x1.+1 * b ^ y1
t < n.+2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
      by rewrite Ht expnS -mulnA -Hx1y1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
t:nat
Ht:alpha t = a ^ x1.+1 * b ^ y1
t < n.+2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    case: leqP => // /alpha_mono.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
t:nat
Ht:alpha t = a ^ x1.+1 * b ^ y1
alpha n.+1 < alpha t -> false
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    rewrite ltnNge Hxy Ht /= !expnS -!mulnA -Hx1y1 -Hk.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
t:nat
Ht:alpha t = a ^ x1.+1 * b ^ y1
~~ (a * alpha z <= a * alpha k) -> false
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    rewrite  (leq_pmul2l (ltnW aL1)).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
t:nat
Ht:alpha t = a ^ x1.+1 * b ^ y1
~~ (alpha z <= alpha k) -> false
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    have : z < k.+1 by [].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
z:ordinal_eqType k.+1
Hz:z \in enum 'I_k.+1
x1, y1:nat
Hx1y1:alpha z = a ^ (x1, y1).1 * b ^ (x1, y1).2
t:nat
Ht:alpha t = a ^ x1.+1 * b ^ y1
z < k.+1 -> ~~ (alpha z <= alpha k) -> false
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    by rewrite ltnS leq_eqVlt => /orP[/eqP->|/alpha_mono/ltnW->]; rewrite // leqnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
(a %| u) && (u \in la) ->
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & u = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
  rewrite andbC => /andP[/mapP[v Hv ->] Ha].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & alpha v = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
  have [[[|x1] y1] Hx1y1] : isAB (alpha v) by apply: isAB_alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
y1:nat
Hx1y1:alpha v = a ^ (0, y1).1 * b ^ (0, y1).2
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & alpha v = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & alpha v = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    move: Ha; rewrite Hx1y1 mul1n /= => /gcdn_idPl.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
y1:nat
Hx1y1:alpha v = a ^ (0, y1).1 * b ^ (0, y1).2
gcdn a (b ^ y1) = a ->
exists2 x : 'I_k.+1,
  x \in enum 'I_k.+1 & b ^ y1 = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & alpha v = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    have /eqP-> : coprime a (b ^ y1) by rewrite coprimeXr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
y1:nat
Hx1y1:alpha v = a ^ (0, y1).1 * b ^ (0, y1).2
1 = a ->
exists2 x : 'I_k.+1,
  x \in enum 'I_k.+1 & b ^ y1 = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & alpha v = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    by move=> H; move: aL1; rewrite H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & alpha v = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
  case: (alpha_surjective x1 y1) => j1 Hj1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
j1:nat
Hj1:alpha j1 = a ^ x1 * b ^ y1
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & alpha v = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
  suff H1j1 : j1 < k.+1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
j1:nat
Hj1:alpha j1 = a ^ x1 * b ^ y1
H1j1:j1 < k.+1
exists2 x : ordinal_eqType k.+1,
  x \in enum 'I_k.+1 & alpha v = a * alpha x
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
j1:nat
Hj1:alpha j1 = a ^ x1 * b ^ y1
j1 < k.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    exists (Ordinal H1j1); first by rewrite mem_enum.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
j1:nat
Hj1:alpha j1 = a ^ x1 * b ^ y1
H1j1:j1 < k.+1
alpha v = a * alpha (Ordinal H1j1)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
j1:nat
Hj1:alpha j1 = a ^ x1 * b ^ y1
j1 < k.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
    by rewrite Hx1y1 expnS -mulnA Hj1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
j1:nat
Hj1:alpha j1 = a ^ x1 * b ^ y1
j1 < k.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
  case: leqP => // /alpha_mono.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
j1:nat
Hj1:alpha j1 = a ^ x1 * b ^ y1
alpha k < alpha j1 -> false
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
  rewrite  -(ltn_pmul2l (ltnW aL1)) Hk Hj1 !mulnA -!expnS -Hxy -Hx1y1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
j1:nat
Hj1:alpha j1 = a ^ x1 * b ^ y1
alpha n.+1 < alpha v -> false
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
  rewrite ltnNge isAB_geq_alphaSn //; first by apply: isAB_alpha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
u:nat_eqType
v:ordinal_eqType n.+2
Hv:v \in enum 'I_n.+2
Ha:a %| alpha v
x1, y1:nat
Hx1y1:alpha v =
a ^ (x1.+1, y1).1 * b ^ (x1.+1, y1).2
j1:nat
Hj1:alpha j1 = a ^ x1 * b ^ y1
alpha v < alpha n.+2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
  by apply: alpha_mono.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
alpha n.+1 = a * alpha (n - i)
have lbEla2 : lb =i la2.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lb =i la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
  move=> u; apply/idP/idP; last first.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in la2 -> u \in lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in lb -> u \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
    rewrite mem_filter andbC => /andP[/mapP[v Hx ->]].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
~~ (a %| alpha v) -> alpha v \in lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in lb -> u \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
    have /alpha_mono : v < n.+2 by [].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
alpha v < alpha n.+2 ->
~~ (a %| alpha v) -> alpha v \in lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in lb -> u \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
      case: (isAB_alpha v) => [] [[|u1] v1]->/=; last first.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
u1, v1:nat
a ^ u1.+1 * b ^ v1 < alpha n.+2 ->
~~ (a %| a ^ u1.+1 * b ^ v1) ->
a ^ u1.+1 * b ^ v1 \in lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
v1:nat
a ^ 0 * b ^ v1 < alpha n.+2 ->
~~ (a %| a ^ 0 * b ^ v1) -> a ^ 0 * b ^ v1 \in lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in lb -> u \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
      by rewrite expnS -mulnA dvdn_mulr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
v1:nat
a ^ 0 * b ^ v1 < alpha n.+2 ->
~~ (a %| a ^ 0 * b ^ v1) -> a ^ 0 * b ^ v1 \in lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in lb -> u \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
    rewrite mul1n => H _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
v1:nat
H:b ^ v1 < alpha n.+2
b ^ v1 \in lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in lb -> u \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
    have /(ltn_pexp2l (ltnW bL1)) v1Li : b ^ v1 < b ^ i.+1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
v1:nat
H:b ^ v1 < alpha n.+2
b ^ v1 < b ^ i.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
v1:nat
H:b ^ v1 < alpha n.+2
v1Li:v1 < i.+1
b ^ v1 \in lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in lb -> u \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
      apply: leq_ltn_trans aLbe.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
v1:nat
H:b ^ v1 < alpha n.+2
b ^ v1 <= alpha n.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
v1:nat
H:b ^ v1 < alpha n.+2
v1Li:v1 < i.+1
b ^ v1 \in lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in lb -> u \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
      by apply: isAB_geq_alphaSn (isAB_bexp _) _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
v:ordinal_eqType n.+2
Hx:v \in enum 'I_n.+2
v1:nat
H:b ^ v1 < alpha n.+2
v1Li:v1 < i.+1
b ^ v1 \in lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in lb -> u \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
    by apply/mapP; exists (Ordinal v1Li); rewrite // mem_enum.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u \in lb -> u \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
  move=> /mapP[u1 _ ->].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
b ^ u1 \in la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
  rewrite mem_filter; apply/andP; split.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
~~ (a %| b ^ u1)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
b ^ u1 \in la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
    apply/negP=> /gcdn_idPl.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
gcdn a (b ^ u1) = a -> False
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
b ^ u1 \in la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
    have /eqP-> : coprime a (b ^ u1) by rewrite coprimeXr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
1 = a -> False
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
b ^ u1 \in la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
    by move=> H; move: aL1; rewrite H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
b ^ u1 \in la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
   case: (alpha_surjective 0 u1) => j1; rewrite mul1n => Hj1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
j1:nat
Hj1:alpha j1 = b ^ u1
b ^ u1 \in la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
  suff j1Ln : j1 < n.+2.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
j1:nat
Hj1:alpha j1 = b ^ u1
j1Ln:j1 < n.+2
b ^ u1 \in la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
j1:nat
Hj1:alpha j1 = b ^ u1
j1 < n.+2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
    by apply/mapP; exists (Ordinal j1Ln); rewrite ?mem_enum.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
j1:nat
Hj1:alpha j1 = b ^ u1
j1 < n.+2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
  case: leqP => // /alpha_mono; rewrite ltnNge => /negP[].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
j1:nat
Hj1:alpha j1 = b ^ u1
alpha j1 <= alpha n.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
  apply: leq_trans (ltnW beLa).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
u:nat_eqType
u1:ordinal_eqType i.+1
j1:nat
Hj1:alpha j1 = b ^ u1
alpha j1 <= b ^ i
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
  by rewrite Hj1 leq_exp2l // -ltnS.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
alpha n.+1 = a * alpha (n - i)
rewrite Hxy expnS -mulnA -Hk.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
a * alpha k = a * alpha (n - i)
congr (_ * alpha _).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = n - i
rewrite -subSS -subSS -Sla (_ : size la = size la1 + size la2); last first.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
size la = size la1 + size la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = size la1 + size la2 - i.+2
  by rewrite !size_filter count_predC.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = size la1 + size la2 - i.+2
have : uniq la1.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la1 -> k = size la1 + size la2 - i.+2
  apply: filter_uniq.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la1 -> k = size la1 + size la2 - i.+2
  rewrite map_inj_uniq; first by apply: enum_uniq.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
injective (fun j : 'I_n.+2 => alpha j)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la1 -> k = size la1 + size la2 - i.+2
  move=> k1 k2 H.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k1, k2:ordinal_eqType n.+2
H:alpha k1 = alpha k2
k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la1 -> k = size la1 + size la2 - i.+2
  case: (leqP k1 k2)=> [|/alpha_mono]; last by rewrite H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k1, k2:ordinal_eqType n.+2
H:alpha k1 = alpha k2
k1 <= k2 -> k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la1 -> k = size la1 + size la2 - i.+2
  by rewrite leq_eqVlt => /orP[/val_eqP//|/alpha_mono]; rewrite H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la1 -> k = size la1 + size la2 - i.+2
rewrite (uniq_size_uniq _ lkEla1) => [/eqP->|]; last first.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq lk
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = size lk + size la2 - i.+2
  rewrite map_inj_uniq; first by apply: enum_uniq.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
injective (fun j : 'I_k.+1 => a * alpha j)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = size lk + size la2 - i.+2
  move=> k1 k2 H.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k1, k2:ordinal_eqType k.+1
H:a * alpha k1 = a * alpha k2
k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = size lk + size la2 - i.+2
  case: (leqP k1 k2)=> [|/alpha_mono]; last first.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k1, k2:ordinal_eqType k.+1
H:a * alpha k1 = a * alpha k2
alpha k2 < alpha k1 -> k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k1, k2:ordinal_eqType k.+1
H:a * alpha k1 = a * alpha k2
k1 <= k2 -> k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = size lk + size la2 - i.+2
    by rewrite -(ltn_pmul2l (ltnW aL1)) H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k1, k2:ordinal_eqType k.+1
H:a * alpha k1 = a * alpha k2
k1 <= k2 -> k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = size lk + size la2 - i.+2
  rewrite leq_eqVlt => /orP[/val_eqP//|/alpha_mono].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k1, k2:ordinal_eqType k.+1
H:a * alpha k1 = a * alpha k2
alpha k1 < alpha k2 -> k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = size lk + size la2 - i.+2
  by rewrite -(ltn_pmul2l (ltnW aL1)) H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = size lk + size la2 - i.+2
rewrite Slk.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = k.+1 + size la2 - i.+2
have : uniq la2.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la2 -> k = k.+1 + size la2 - i.+2
  apply: filter_uniq.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la2 -> k = k.+1 + size la2 - i.+2
  rewrite map_inj_uniq; first by apply: enum_uniq.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
injective (fun j : 'I_n.+2 => alpha j)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la2 -> k = k.+1 + size la2 - i.+2
  move=> k1 k2 H.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k1, k2:ordinal_eqType n.+2
H:alpha k1 = alpha k2
k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la2 -> k = k.+1 + size la2 - i.+2
  case: (leqP k1 k2)=> [|/alpha_mono]; last by rewrite H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k1, k2:ordinal_eqType n.+2
H:alpha k1 = alpha k2
k1 <= k2 -> k1 = k2
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la2 -> k = k.+1 + size la2 - i.+2
  by rewrite leq_eqVlt => /orP[/val_eqP//|/alpha_mono]; rewrite H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq la2 -> k = k.+1 + size la2 - i.+2
rewrite (uniq_size_uniq _ lbEla2) => [/eqP->|]; last first.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
uniq lb
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = k.+1 + size lb - i.+2
  rewrite map_inj_uniq; first by apply: enum_uniq.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
injective (fun j : 'I_i.+1 => b ^ j)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = k.+1 + size lb - i.+2
  by move=> k1 k2 /eqP; rewrite eqn_exp2l => // /val_eqP.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = k.+1 + size lb - i.+2
rewrite size_map size_enum_ord.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
beLa:b ^ i < alpha n.+1
aLbe:alpha n.+1 < b ^ i.+1
iLm:i <= n
x, y:nat
Hxy:alpha n.+1 = a ^ (x.+1, y).1 * b ^ (x.+1, y).2
k:nat
Hk:alpha k = a ^ x * b ^ y
la:=[seq alpha (j : 'I_n.+2) | j <- enum 'I_n.+2]:seq nat
lb:=[seq b ^ (j : 'I_i.+1) | j <- enum 'I_i.+1]:seq nat
lc:=[seq a * alpha (j : 'I_(n - i))
   | j <- enum 'I_(n - i)]:seq nat
Ula:uniq la
Sla:size la = n.+2
la1:=[seq x <- la | a %| x]:seq nat
la2:=[seq x <- la | ~~ (a %| x)]:seq nat
lk:=[seq a * alpha (j : 'I_k.+1) | j <- enum 'I_k.+1]:seq nat
Slk:size lk = k.+1
lkEla1:lk =i la1
lbEla2:lb =i la2
k = k.+1 + i.+1 - i.+2
by rewrite subSS addnK.
Qed.

Lemma sum_alpha_eq n i : 
 b ^ i <= alpha n < b ^ i.+1 ->
 \sum_(i0 < n.+1) alpha i0 =
  (a * \sum_(i0 < (n - i)) alpha i0) + \sum_(i0 < i.+1) b ^ i0.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
Proof.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
elim: n i => [i|n IH i].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
i:nat
b ^ i <= alpha 0 < b ^ i.+1 ->
\sum_(i0 < 1) alpha i0 =
a * (\sum_(i0 < 0 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
b ^ i <= alpha n.+1 < b ^ i.+1 ->
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
  case: i => [_|i]; last by rewrite leqNgt alpha0 (ltn_exp2l 0).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
\sum_(i0 < 1) alpha i0 =
a * (\sum_(i0 < 0 - 0) alpha i0) +
\sum_(i0 < 1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
b ^ i <= alpha n.+1 < b ^ i.+1 ->
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
  by rewrite !big_ord_recr !big_ord0 muln0.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
b ^ i <= alpha n.+1 < b ^ i.+1 ->
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
rewrite leq_eqVlt => /andP[/orP[/eqP Ha Hb| Ha Hb]].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i = alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
  case: i Ha Hb => [H|i Ha Hb].
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
H:b ^ 0 = alpha n.+1
alpha n.+1 < b ^ 1 ->
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - 0) alpha i0) +
\sum_(i0 < 1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i.+1 = alpha n.+1
Hb:alpha n.+1 < b ^ i.+2
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i.+1) alpha i0) +
\sum_(i0 < i.+2) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
    have : alpha 0 < alpha n.+1 by apply: alpha_mono.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
H:b ^ 0 = alpha n.+1
alpha 0 < alpha n.+1 ->
alpha n.+1 < b ^ 1 ->
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - 0) alpha i0) +
\sum_(i0 < 1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i.+1 = alpha n.+1
Hb:alpha n.+1 < b ^ i.+2
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i.+1) alpha i0) +
\sum_(i0 < i.+2) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
    by rewrite [alpha 0]H ltnn.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i.+1 = alpha n.+1
Hb:alpha n.+1 < b ^ i.+2
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i.+1) alpha i0) +
\sum_(i0 < i.+2) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
  rewrite big_ord_recr [X in _ = _ + X]big_ord_recr /= Ha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i.+1 = alpha n.+1
Hb:alpha n.+1 < b ^ i.+2
\sum_(i < n.+1) alpha i + alpha n.+1 =
a * (\sum_(i0 < n.+1 - i.+1) alpha i0) +
(\sum_(i0 < i.+1) b ^ i0 + alpha n.+1)
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
  rewrite addnA; congr (_ + _).
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i.+1 = alpha n.+1
Hb:alpha n.+1 < b ^ i.+2
\sum_(i < n.+1) alpha i =
a * (\sum_(i0 < n.+1 - i.+1) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
  rewrite subSS.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i.+1 = alpha n.+1
Hb:alpha n.+1 < b ^ i.+2
\sum_(i < n.+1) alpha i =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
  apply: IH => //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
Ha:b ^ i.+1 = alpha n.+1
Hb:alpha n.+1 < b ^ i.+2
b ^ i <= alpha n < b ^ i.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
  rewrite Ha alpha_ltn andbT.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
Ha:b ^ i.+1 = alpha n.+1
Hb:alpha n.+1 < b ^ i.+2
b ^ i <= alpha n
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
  apply: isAB_geq_alphaSn (isAB_bexp _) _.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
Ha:b ^ i.+1 = alpha n.+1
Hb:alpha n.+1 < b ^ i.+2
b ^ i < alpha n.+1
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
  by rewrite -Ha ltn_exp2l.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < n.+1 - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
rewrite subSn; last exact: b_exp_ltn Ha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\sum_(i0 < n.+2) alpha i0 =
a * (\sum_(i0 < (n - i).+1) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
rewrite big_ord_recr [X in _ = _  * X + _]big_ord_recr.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
addn_monoid
  (\big[addn_monoid/0]_(i < n.+1) alpha
                                    (widen_ord
                                       (leqnSn n.+1) i))
  (alpha ord_max) =
a *
addn_monoid
  (\big[addn_monoid/0]_(i0 < n - i) alpha
                                      (widen_ord
                                         (leqnSn
                                            (n - i))
                                         i0))
  (alpha ord_max) + \sum_(i0 < i.+1) b ^ i0
rewrite mulnDr addnAC.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
addn_monoid
  (\big[addn_monoid/0]_(i < n.+1) alpha
                                    (widen_ord
                                       (leqnSn n.+1) i))
  (alpha ord_max) =
a *
\big[addn_monoid/0]_(i0 < n - i) alpha
                                   (widen_ord
                                      (leqnSn (n - i))
                                      i0) +
\sum_(i0 < i.+1) b ^ i0 + a * alpha ord_max
congr (_ + _); last first.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
alpha ord_max = a * alpha ord_max
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\big[addn_monoid/0]_(i < n.+1) alpha
                                 (widen_ord
                                    (leqnSn n.+1) i) =
a *
\big[addn_monoid/0]_(i0 < n - i) alpha
                                   (widen_ord
                                      (leqnSn (n - i))
                                      i0) +
\sum_(i0 < i.+1) b ^ i0
  by apply: alpha_b_eq; rewrite ?Ha.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n:nat
IH:forall i : nat,
b ^ i <= alpha n < b ^ i.+1 ->
\sum_(i0 < n.+1) alpha i0 =
a * (\sum_(i0 < n - i) alpha i0) +
\sum_(i0 < i.+1) b ^ i0
i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
\big[addn_monoid/0]_(i < n.+1) alpha
                                 (widen_ord
                                    (leqnSn n.+1) i) =
a *
\big[addn_monoid/0]_(i0 < n - i) alpha
                                   (widen_ord
                                      (leqnSn (n - i))
                                      i0) +
\sum_(i0 < i.+1) b ^ i0
apply: IH.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
b ^ i <= alpha n < b ^ i.+1
rewrite (isAB_geq_alphaSn (isAB_bexp _)) //.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
Ha:b ^ i < alpha n.+1
Hb:alpha n.+1 < b ^ i.+1
true && (alpha n < b ^ i.+1)
apply: leq_trans Hb.
a, b:nat
aL1:1 < a
aLb:a < b
aCb:coprime a b
bL1:1 < b
n, i:nat
Ha:b ^ i < alpha n.+1
alpha n < (alpha n.+1).+1
by rewrite ltnS ltnW // alpha_ltn.
Qed.

End Main.

Section S23.

Notation α := (alpha 2 3).

(* First 60 element of the list *)
Compute map α (iota 0 60).
= [:: 1; 2; 3; 4; 6; 8; 9; 12; 16; 18; 24; 27;
      32; 36; 48; 54; 64; 72; 81; 96; 108; 128;
      144; 162; 192; 216; 243; 256; 288; 324;
      384; 432; 486; 512; 576; 648; 729; 768;
      864; 972; 1024; 1152; 1296; 1458; 1536;
      1728; 1944; 2048; 2187; 2304; 2592; 2916;
      3072; 3456; 3888; 4096; 4374; 4608; 5184;
      5832]
: seq nat

Definition dsum_alpha n := \sum_(i < n) α i.

Notation S1 := dsum_alpha.

Lemma dsum_alpha_0 : S1 0 = 0.
S1 0 = 0
Proof.
S1 0 = 0 by rewrite /S1 big_ord0 // =>  [] []. Qed.

Lemma dsum_alpha_1 : S1 1 = 1.
S1 1 = 1
Proof.
S1 1 = 1 by rewrite /S1 big_ord_recr /= big_ord0. Qed.

Lemma div2K n : ~~ odd n -> n./2.*2 = n.
n:nat
~~ odd n -> (n./2).*2 = n
Proof.
n:nat
~~ odd n -> (n./2).*2 = n by move=> nO; rewrite -{2}(odd_double_half n) (negPf nO). Qed.

Lemma S1_leq n i : i <= n -> S1 n <= (S1 (n - i)).*2 + (3 ^ i).-1./2.
n, i:nat
i <= n -> S1 n <= (S1 (n - i)).*2 + ((3 ^ i).-1)./2
Proof.
n, i:nat
i <= n -> S1 n <= (S1 (n - i)).*2 + ((3 ^ i).-1)./2
move=> iLn.
n, i:nat
iLn:i <= n
S1 n <= (S1 (n - i)).*2 + ((3 ^ i).-1)./2
rewrite -leq_double doubleD div2K; last first.
n, i:nat
iLn:i <= n
~~ odd (3 ^ i).-1
n, i:nat
iLn:i <= n
(S1 n).*2 <= ((S1 (n - i)).*2).*2 + (3 ^ i).-1
  by rewrite -subn1 oddB ?expn_gt0 //= oddX orbT.
n, i:nat
iLn:i <= n
(S1 n).*2 <= ((S1 (n - i)).*2).*2 + (3 ^ i).-1
rewrite -!mul2n predn_exp.
n, i:nat
iLn:i <= n
2 * S1 n <=
2 * (2 * S1 (n - i)) + 3.-1 * (\sum_(i0 < i) 3 ^ i0)
rewrite -mulnDr leq_mul2l /=.
n, i:nat
iLn:i <= n
S1 n <= 2 * S1 (n - i) + \sum_(i0 < i) 3 ^ i0
by apply: sum_alpha_leq.
Qed.

Lemma log3_proof n : exists i, n  < 3 ^ i.
n:nat
exists i : nat, n < 3 ^ i
Proof.
n:nat
exists i : nat, n < 3 ^ i by exists n; apply: ltn_expl. Qed.

Definition log3 k := (ex_minn (log3_proof k)).-1.

Lemma log30 : log3 0 = 0.
log3 0 = 0
Proof.
log3 0 = 0
by rewrite /log3; case: ex_minnP => [] [|m] //= _ /(_ 0 isT); case: m.
Qed.

Lemma log31 : log3 1 = 0.
log3 1 = 0
Proof.
log3 1 = 0
by rewrite /log3; case: ex_minnP => [] [|m] //= _  /(_ 1 isT); case: m.
Qed. 

Lemma gtn_log3 n : n < 3 ^ (log3 n).+1.
n:nat
n < 3 ^ (log3 n).+1
Proof.
n:nat
n < 3 ^ (log3 n).+1
rewrite /log3; case: ex_minnP => [] [|m] //= nLm H.
n:nat
nLm:n < 3 ^ 0
H:forall n0 : nat, n < 3 ^ n0 -> 0 <= n0
n < 3 ^ 1
by apply: leq_trans nLm _.
Qed.

Lemma leq_log3 n : 0 < n -> 3 ^ (log3 n) <= n.
n:nat
0 < n -> 3 ^ log3 n <= n
Proof.
n:nat
0 < n -> 3 ^ log3 n <= n
rewrite /log3; case: ex_minnP => [] [|m] //= nLm H nL.
n, m:nat
nLm:n < 3 ^ m.+1
H:forall n0 : nat, n < 3 ^ n0 -> m < n0
nL:0 < n
3 ^ m <= n
by rewrite leqNgt; apply/negP => /H; rewrite ltnn.
Qed.

Lemma leq_log3_alpha n : log3 (α n) < n.+1.
n:nat
log3 (α n) < n.+1
Proof.
n:nat
log3 (α n) < n.+1
rewrite -(ltn_exp2l _ _ (_ : 1 < 3)) //.
n:nat
3 ^ log3 (α n) < 3 ^ n.+1
apply: leq_ltn_trans (leq_log3 _) _; first by apply: alpha_gt0.
n:nat
α n < 3 ^ n.+1
by apply: alpha_exp_bound.
Qed.

Lemma S1_eq n : 0 < n -> 
  S1 n = (S1 (n - (log3 (α n.-1)).+1)).*2 + (3 ^ (log3 (α n.-1)).+1).-1./2.
n:nat
0 < n ->
S1 n =
(S1 (n - (log3 (α n.-1)).+1)).*2 +
((3 ^ (log3 (α n.-1)).+1).-1)./2
Proof.
n:nat
0 < n ->
S1 n =
(S1 (n - (log3 (α n.-1)).+1)).*2 +
((3 ^ (log3 (α n.-1)).+1).-1)./2
case: n => // n _.
n:nat
S1 n.+1 =
(S1 (n.+1 - (log3 (α n.+1.-1)).+1)).*2 +
((3 ^ (log3 (α n.+1.-1)).+1).-1)./2
apply: double_inj.
n:nat
(S1 n.+1).*2 =
((S1 (n.+1 - (log3 (α n.+1.-1)).+1)).*2 +
 ((3 ^ (log3 (α n.+1.-1)).+1).-1)./2).*2
rewrite doubleD div2K; last first.
n:nat
~~ odd (3 ^ (log3 (α n.+1.-1)).+1).-1
n:nat
(S1 n.+1).*2 =
((S1 (n.+1 - (log3 (α n.+1.-1)).+1)).*2).*2 +
(3 ^ (log3 (α n.+1.-1)).+1).-1
  by rewrite -subn1 oddB ?expn_gt0 //= oddX orbT.
n:nat
(S1 n.+1).*2 =
((S1 (n.+1 - (log3 (α n.+1.-1)).+1)).*2).*2 +
(3 ^ (log3 (α n.+1.-1)).+1).-1
rewrite -!mul2n predn_exp -mulnDr; congr (2 * _).
n:nat
S1 n.+1 =
2 * S1 (n.+1 - (log3 (α n.+1.-1)).+1) +
\sum_(i < (log3 (α n.+1.-1)).+1) 3 ^ i
have iLn : 3 ^ (log3 (α n)) <= α n < 3 ^ (log3 (α n)).+1.
n:nat
3 ^ log3 (α n) <= α n < 3 ^ (log3 (α n)).+1
n:nat
iLn:3 ^ log3 (α n) <= α n < 3 ^ (log3 (α n)).+1
S1 n.+1 =
2 * S1 (n.+1 - (log3 (α n.+1.-1)).+1) +
\sum_(i < (log3 (α n.+1.-1)).+1) 3 ^ i
  rewrite gtn_log3  leq_log3 //.
n:nat
0 < α n
n:nat
iLn:3 ^ log3 (α n) <= α n < 3 ^ (log3 (α n)).+1
S1 n.+1 =
2 * S1 (n.+1 - (log3 (α n.+1.-1)).+1) +
\sum_(i < (log3 (α n.+1.-1)).+1) 3 ^ i
  by apply: alpha_gt0.
n:nat
iLn:3 ^ log3 (α n) <= α n < 3 ^ (log3 (α n)).+1
S1 n.+1 =
2 * S1 (n.+1 - (log3 (α n.+1.-1)).+1) +
\sum_(i < (log3 (α n.+1.-1)).+1) 3 ^ i
by apply: sum_alpha_eq.
Qed.

Lemma S1_bigmin n : 
  S1 n.+1 = \min_(i <= n) ((S1 i).*2 + (3 ^ (n.+1 - i)).-1./2).
n:nat
S1 n.+1 =
\min_(i <= n) ((S1 i).*2 + ((3 ^ (n.+1 - i)).-1)./2)
Proof.
n:nat
S1 n.+1 =
\min_(i <= n) ((S1 i).*2 + ((3 ^ (n.+1 - i)).-1)./2)
apply/eqP; rewrite eqn_leq; apply/andP; split; last first.
n:nat
\min_(i <= n) ((S1 i).*2 + ((3 ^ (n.+1 - i)).-1)./2) <=
S1 n.+1
n:nat
S1 n.+1 <=
\min_(i <= n) ((S1 i).*2 + ((3 ^ (n.+1 - i)).-1)./2)
  rewrite S1_eq // -{2}(subKn (leq_log3_alpha n)).
n:nat
\min_(i <= n) ((S1 i).*2 + ((3 ^ (n.+1 - i)).-1)./2) <=
(S1 (n.+1 - (log3 (α n.+1.-1)).+1)).*2 +
((3 ^ (n.+1 - (n.+1 - (log3 (α n)).+1))).-1)./2
n:nat
S1 n.+1 <=
\min_(i <= n) ((S1 i).*2 + ((3 ^ (n.+1 - i)).-1)./2)
  apply: bigmin_inf (leqnn _) => //.
n:nat
n.+1 - (log3 (α n.+1.-1)).+1 <= n
n:nat
S1 n.+1 <=
\min_(i <= n) ((S1 i).*2 + ((3 ^ (n.+1 - i)).-1)./2)
  by rewrite leq_subLR addSnnS leq_addl.
n:nat
S1 n.+1 <=
\min_(i <= n) ((S1 i).*2 + ((3 ^ (n.+1 - i)).-1)./2)
apply/bigmin_leqP => i iLn.
n, i:nat
iLn:i <= n
S1 n.+1 <= (S1 i).*2 + ((3 ^ (n.+1 - i)).-1)./2
rewrite -{1}(subKn (_ : i <= n.+1)); last by apply: ltnW.
n, i:nat
iLn:i <= n
S1 n.+1 <=
(S1 (n.+1 - (n.+1 - i))).*2 + ((3 ^ (n.+1 - i)).-1)./2
by apply/S1_leq/leq_subr.
Qed.

Lemma delta_S1 n : delta S1 n = α n.
n:nat
delta S1 n = α n
Proof.
n:nat
delta S1 n = α n by rewrite /S1 /delta big_ord_recr /= addnC addnK. Qed. 

Definition dsum_alphaL l :=
 conv (fun i => (S1 i).*2) (fun i => l * (3 ^ i).-1./2).

Notation " 'S_[' l ']' " := (dsum_alphaL l) 
 (format "S_[ l ]").

Definition alphaL l n := delta S_[l] n.

Notation " 'α_[' l ']' " := (alphaL l) 
 (format "α_[ l ]").

Lemma leq_bigmin f g n :
 (forall i, i <= n -> f i <= g i) ->
 \min_(i <= n) f i <= \min_(i <= n) g i.
f, g:nat -> nat
n:nat
(forall i : nat, i <= n -> f i <= g i) ->
\min_(i <= n) f i <= \min_(i <= n) g i
Proof.
f, g:nat -> nat
n:nat
(forall i : nat, i <= n -> f i <= g i) ->
\min_(i <= n) f i <= \min_(i <= n) g i
elim: n => /= [->//|n IH H].
f, g:nat -> nat
n:nat
IH:(forall i : nat, i <= n -> f i <= g i) ->
\min_(i <= n) f i <= \min_(i <= n) g i
H:forall i : nat, i <= n.+1 -> f i <= g i
minn (f n.+1) (\min_(i <= n) f i) <=
minn (g n.+1) (\min_(i <= n) g i)
rewrite leq_min !geq_min H //= orbC IH // => i iLn.
f, g:nat -> nat
n:nat
IH:(forall i : nat, i <= n -> f i <= g i) ->
\min_(i <= n) f i <= \min_(i <= n) g i
H:forall i : nat, i <= n.+1 -> f i <= g i
i:nat
iLn:i <= n
f i <= g i
by rewrite H // (leq_trans iLn).
Qed.

Lemma increasing_dsum_alphaL_l n : increasing (fun l => S_[l] n).
n:nat
increasing (dsum_alphaL^~ n)
Proof.
n:nat
increasing (dsum_alphaL^~ n)
move=> l; rewrite /increasing /dsum_alphaL /conv.
n, l:nat
\min_(i <= n) ((S1 i).*2 + l * ((3 ^ (n - i)).-1)./2) <=
\min_(i <= n) ((S1 i).*2 +
               l.+1 * ((3 ^ (n - i)).-1)./2)
apply: leq_bigmin => i _.
n, l, i:nat
(S1 i).*2 + l * ((3 ^ (n - i)).-1)./2 <=
(S1 i).*2 + l.+1 * ((3 ^ (n - i)).-1)./2
by rewrite leq_add2l leq_mul2r leqnSn orbT.
Qed.

Lemma concave_dsum_alphaL_l n : concave (fun l => S_[l] n).
n:nat
concave (dsum_alphaL^~ n)
Proof.
n:nat
concave (dsum_alphaL^~ n)
apply: concaveE (increasing_dsum_alphaL_l _) _ => i.
n, i:nat
S_[i] n + S_[i.+2] n <= (S_[i.+1] n).*2
rewrite {3}/dsum_alphaL /conv.
n, i:nat
S_[i] n + S_[i.+2] n <=
(\min_(i0 <= n) ((S1 i0).*2 +
                 i.+1 * ((3 ^ (n - i0)).-1)./2)).*2
pose f i x := (S1 x).*2 + i * ((3 ^ (n - x)).-1)./2.
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
S_[i] n + S_[i.+2] n <=
(\min_(i0 <= n) ((S1 i0).*2 +
                 i.+1 * ((3 ^ (n - i0)).-1)./2)).*2
case: (eq_bigmin (f i.+1) n) => j ->.
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
S_[i] n + S_[i.+2] n <= (f i.+1 j).*2
have -> : (f i.+1 j).*2 = f i j + f (i.+2) j.
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
(f i.+1 j).*2 = f i j + f i.+2 j
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
S_[i] n + S_[i.+2] n <= f i j + f i.+2 j
  rewrite /f; set x := (S1 _).*2; set y := _./2.
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
x:=(S1 j).*2:nat
y:=((3 ^ (n - j)).-1)./2:nat
(x + i.+1 * y).*2 = x + i * y + (x + i.+2 * y)
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
S_[i] n + S_[i.+2] n <= f i j + f i.+2 j
  rewrite addnCA 2![in RHS]addnA addnn -[in RHS]addnA -mulnDl.
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
x:=(S1 j).*2:nat
y:=((3 ^ (n - j)).-1)./2:nat
(x + i.+1 * y).*2 = x.*2 + (i + i.+2) * y
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
S_[i] n + S_[i.+2] n <= f i j + f i.+2 j
  by rewrite -addSnnS addnn -doubleMl -doubleD.
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
S_[i] n + S_[i.+2] n <= f i j + f i.+2 j
apply: leq_add.
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
S_[i] n <= f i j
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
S_[i.+2] n <= f i.+2 j
  by apply: bigmin_inf (leqnn _); rewrite -ltnS.
n, i:nat
f:=fun i x : nat =>
(S1 x).*2 + i * ((3 ^ (n - x)).-1)./2:nat -> nat -> nat
j:'I_n.+1
S_[i.+2] n <= f i.+2 j
by apply: bigmin_inf (leqnn _); rewrite -ltnS.
Qed.

Lemma lim_dsum_alphaL_l l n : (S1 n).*2 <= l -> S_[l] n = (S1 n).*2.
l, n:nat
(S1 n).*2 <= l -> S_[l] n = (S1 n).*2
Proof.
l, n:nat
(S1 n).*2 <= l -> S_[l] n = (S1 n).*2
move=> S1Ll; apply/eqP.
l, n:nat
S1Ll:(S1 n).*2 <= l
S_[l] n == (S1 n).*2
rewrite /dsum_alphaL /conv eqn_leq; apply/andP; split.
l, n:nat
S1Ll:(S1 n).*2 <= l
\min_(i <= n) ((S1 i).*2 + l * ((3 ^ (n - i)).-1)./2) <=
(S1 n).*2
l, n:nat
S1Ll:(S1 n).*2 <= l
(S1 n).*2 <=
\min_(i <= n) ((S1 i).*2 + l * ((3 ^ (n - i)).-1)./2)
  apply: bigmin_inf (_ : _ n <= _) => //.
l, n:nat
S1Ll:(S1 n).*2 <= l
(S1 n).*2 + l * ((3 ^ (n - n)).-1)./2 <= (S1 n).*2
l, n:nat
S1Ll:(S1 n).*2 <= l
(S1 n).*2 <=
\min_(i <= n) ((S1 i).*2 + l * ((3 ^ (n - i)).-1)./2)
  by rewrite subnn muln0 addn0.
l, n:nat
S1Ll:(S1 n).*2 <= l
(S1 n).*2 <=
\min_(i <= n) ((S1 i).*2 + l * ((3 ^ (n - i)).-1)./2)
apply/bigmin_leqP => i.
l, n:nat
S1Ll:(S1 n).*2 <= l
i:nat
i <= n ->
(S1 n).*2 <= (S1 i).*2 + l * ((3 ^ (n - i)).-1)./2
case: ltngtP => // [iLn _|-> _]; last apply: leq_addr.
l, n:nat
S1Ll:(S1 n).*2 <= l
i:nat
iLn:i < n
(S1 n).*2 <= (S1 i).*2 + l * ((3 ^ (n - i)).-1)./2
apply: leq_trans S1Ll _.
l, n, i:nat
iLn:i < n
l <= (S1 i).*2 + l * ((3 ^ (n - i)).-1)./2
apply: leq_trans (leq_addl _ _).
l, n, i:nat
iLn:i < n
l <= l * ((3 ^ (n - i)).-1)./2
rewrite -{1}[l]muln1 leq_mul2l (half_leq (_ : 2 <= _)) ?orbT //.
l, n, i:nat
iLn:i < n
1 < (3 ^ (n - i)).-1
by rewrite -ltnS prednK ?expn_gt0 // (@leq_exp2l _ 1) // subn_gt0.
Qed.

Lemma delta_2S1 i : delta (fun i : nat => (S1 i).*2) i = (α i).*2.
i:nat
delta (fun i : nat => (S1 i).*2) i = (α i).*2
Proof.
i:nat
delta (fun i : nat => (S1 i).*2) i = (α i).*2 by rewrite /delta -doubleB [_ - _]delta_S1. Qed.

Lemma convex_2S1 : convex (fun i : nat => (S1 i).*2).
convex (fun i : nat => (S1 i).*2)
Proof.
convex (fun i : nat => (S1 i).*2)
split => [] i.
i:nat
(S1 i).*2 <= (S1 i.+1).*2
i:nat
delta (fun i : nat => (S1 i).*2) i <=
delta (fun i : nat => (S1 i).*2) i.+1
  by rewrite leq_double /dsum_alpha [X in _ <= X]big_ord_recr leq_addr.
i:nat
delta (fun i : nat => (S1 i).*2) i <=
delta (fun i : nat => (S1 i).*2) i.+1
by rewrite !delta_2S1 leq_double; apply/ltnW/alpha_ltn.
Qed.

Lemma delta_3l l i : delta (fun i : nat => l * ((3 ^ i).-1)./2) i = l * 3 ^ i.
l, i:nat
delta (fun i : nat => l * ((3 ^ i).-1)./2) i =
l * 3 ^ i
Proof.
l, i:nat
delta (fun i : nat => l * ((3 ^ i).-1)./2) i =
l * 3 ^ i
rewrite /delta -mulnBr -even_halfB //;
  try by rewrite -subn1 oddB ?expn_gt0 //= oddX orbT.
l, i:nat
l * ((3 ^ i.+1).-1 - (3 ^ i).-1)./2 = l * 3 ^ i
rewrite -predn_sub -subnS prednK ?expn_gt0 //.
l, i:nat
l * (3 ^ i.+1 - 3 ^ i)./2 = l * 3 ^ i
by rewrite expnS -[X in _ * ((_ - X))./2]mul1n -mulnBl mul2n doubleK.
Qed.

Lemma convex_3l l : convex (fun i : nat => l * ((3 ^ i).-1)./2).
l:nat
convex (fun i : nat => l * ((3 ^ i).-1)./2)
Proof.
l:nat
convex (fun i : nat => l * ((3 ^ i).-1)./2)
split => [] i.
l, i:nat
l * ((3 ^ i).-1)./2 <= l * ((3 ^ i.+1).-1)./2
l, i:nat
delta (fun i : nat => l * ((3 ^ i).-1)./2) i <=
delta (fun i : nat => l * ((3 ^ i).-1)./2) i.+1
  rewrite leq_mul2l half_leq ?orbT //.
l, i:nat
(3 ^ i).-1 <= (3 ^ i.+1).-1
l, i:nat
delta (fun i : nat => l * ((3 ^ i).-1)./2) i <=
delta (fun i : nat => l * ((3 ^ i).-1)./2) i.+1
  by apply: leq_pred2; rewrite leq_exp2l.
l, i:nat
delta (fun i : nat => l * ((3 ^ i).-1)./2) i <=
delta (fun i : nat => l * ((3 ^ i).-1)./2) i.+1
by rewrite !delta_3l leq_mul2l leq_exp2l // leqnSn orbT.
Qed.

Lemma convex_dsum_alphaL l : convex (S_[l]).
l:nat
convex S_[l]
Proof.
l:nat
convex S_[l]
apply: convex_conv; first by apply: convex_2S1.
l:nat
convex (fun i : nat => l * ((3 ^ i).-1)./2)
by apply: convex_3l.
Qed.

Lemma alphaLE l n : 
  α_[l] n = fmerge (fun i : nat => (α i).*2) (fun i : nat => l * 3 ^ i) n.
l, n:nat
α_[l] n =
fmerge (fun i : nat => (α i).*2)
  (fun i : nat => l * 3 ^ i) n
Proof.
l, n:nat
α_[l] n =
fmerge (fun i : nat => (α i).*2)
  (fun i : nat => l * 3 ^ i) n
rewrite [LHS]delta_conv; last by apply: convex_3l.
l, n:nat
fmerge (delta (fun i : nat => (S1 i).*2))
  (delta (fun i : nat => l * ((3 ^ i).-1)./2)) n =
fmerge (fun i : nat => (α i).*2)
  (fun i : nat => l * 3 ^ i) n
l, n:nat
convex (fun i : nat => (S1 i).*2)
  apply: fmerge_ext => i; first by rewrite delta_2S1.
l, n, i:nat
delta (fun i : nat => l * ((3 ^ i).-1)./2) i =
l * 3 ^ i
l, n:nat
convex (fun i : nat => (S1 i).*2)
  by rewrite delta_3l.
l, n:nat
convex (fun i : nat => (S1 i).*2)
by apply: convex_2S1.
Qed.

Lemma increasing_alphaL l : increasing α_[l].
l:nat
increasing α_[l]
Proof.
l:nat
increasing α_[l]
apply: increasing_ext; first by move=> i; apply/sym_equal/alphaLE.
l:nat
increasing
  (fmerge (fun i : nat => (α i).*2)
     (fun i : nat => l * 3 ^ i))
apply: increasing_fmerge.
l:nat
increasing (fun i : nat => (α i).*2)
l:nat
increasing (fun i : nat => l * 3 ^ i)
  by move=> n; rewrite leq_double; apply/ltnW/alpha_mono.
l:nat
increasing (fun i : nat => l * 3 ^ i)
by move=> n; rewrite leq_mul2l leq_exp2l ?leqnSn ?orbT.
Qed.

Lemma increasing_alphaL_l n : increasing (fun l => α_[l] n).
n:nat
increasing (alphaL^~ n)
Proof.
n:nat
increasing (alphaL^~ n)
move=> l; rewrite !alphaLE !fmergeE //; last 4 first.
n, l:nat
increasing (fun i : nat => (α i).*2)
n, l:nat
increasing (fun i : nat => l.+1 * 3 ^ i)
n, l:nat
increasing (fun i : nat => (α i).*2)
n, l:nat
increasing (fun i : nat => l * 3 ^ i)
n, l:nat
\max_(i < n.+1) minn (α i).*2 (l * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i))
-
n, l:nat
increasing (fun i : nat => (α i).*2)
n, l:nat
increasing (fun i : nat => l.+1 * 3 ^ i)
n, l:nat
increasing (fun i : nat => (α i).*2)
n, l:nat
increasing (fun i : nat => l * 3 ^ i)
n, l:nat
\max_(i < n.+1) minn (α i).*2 (l * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i)) by move=> k; rewrite leq_double; apply/ltnW/alpha_mono.
n, l:nat
increasing (fun i : nat => l.+1 * 3 ^ i)
n, l:nat
increasing (fun i : nat => (α i).*2)
n, l:nat
increasing (fun i : nat => l * 3 ^ i)
n, l:nat
\max_(i < n.+1) minn (α i).*2 (l * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i))
-
n, l:nat
increasing (fun i : nat => l.+1 * 3 ^ i)
n, l:nat
increasing (fun i : nat => (α i).*2)
n, l:nat
increasing (fun i : nat => l * 3 ^ i)
n, l:nat
\max_(i < n.+1) minn (α i).*2 (l * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i)) by move=> k; rewrite leq_mul2l leq_exp2l ?leqnSn ?orbT.
n, l:nat
increasing (fun i : nat => (α i).*2)
n, l:nat
increasing (fun i : nat => l * 3 ^ i)
n, l:nat
\max_(i < n.+1) minn (α i).*2 (l * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i))
-
n, l:nat
increasing (fun i : nat => (α i).*2)
n, l:nat
increasing (fun i : nat => l * 3 ^ i)
n, l:nat
\max_(i < n.+1) minn (α i).*2 (l * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i)) by move=> k; rewrite leq_double; apply/ltnW/alpha_mono.
n, l:nat
increasing (fun i : nat => l * 3 ^ i)
n, l:nat
\max_(i < n.+1) minn (α i).*2 (l * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i))
-
n, l:nat
increasing (fun i : nat => l * 3 ^ i)
n, l:nat
\max_(i < n.+1) minn (α i).*2 (l * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i)) by move=> k; rewrite leq_mul2l leq_exp2l ?leqnSn ?orbT.
n, l:nat
\max_(i < n.+1) minn (α i).*2 (l * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i))
apply/bigmax_leqP => i _.
n, l:nat
i:ordinal_finType n.+1
minn (α i).*2 (l * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i))
apply: leq_trans (_ : minn (α i).*2 (l.+1 * 3 ^ (n - i)) <= _).
n, l:nat
i:ordinal_finType n.+1
minn (α i).*2 (l * 3 ^ (n - i)) <=
minn (α i).*2 (l.+1 * 3 ^ (n - i))
n, l:nat
i:ordinal_finType n.+1
minn (α i).*2 (l.+1 * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i))
  by rewrite leq_min !geq_min leqnn /= leq_mul2r leqnSn !orbT.
n, l:nat
i:ordinal_finType n.+1
minn (α i).*2 (l.+1 * 3 ^ (n - i)) <=
\max_(i < n.+1) minn (α i).*2 (l.+1 * 3 ^ (n - i))
by apply: leq_bigmax.
Qed.

Lemma submodular_dsum_alphaL l n :
  S_[l] n.+1 + S_[l.+1] n <= S_[l] n + S_[l.+1] n.+1.
l, n:nat
S_[l] n.+1 + S_[l.+1] n <= S_[l] n + S_[l.+1] n.+1
Proof.
l, n:nat
S_[l] n.+1 + S_[l.+1] n <= S_[l] n + S_[l.+1] n.+1
rewrite -leq_subLR -addnBAC; last first.
l, n:nat
S_[l] n <= S_[l] n.+1
l, n:nat
S_[l] n.+1 - S_[l] n + S_[l.+1] n <= S_[l.+1] n.+1
  by have [daI _] := convex_dsum_alphaL l.
l, n:nat
S_[l] n.+1 - S_[l] n + S_[l.+1] n <= S_[l.+1] n.+1
rewrite -[_ - _]/(α_[l] _) addnC -leq_subRL; last first.
l, n:nat
S_[l.+1] n <= S_[l.+1] n.+1
l, n:nat
α_[l] n <= S_[l.+1] n.+1 - S_[l.+1] n
  by have [daI _] := convex_dsum_alphaL l.+1.
l, n:nat
α_[l] n <= S_[l.+1] n.+1 - S_[l.+1] n
 rewrite -[_ - _]/(α_[l.+1] _).
l, n:nat
α_[l] n <= α_[l.+1] n
by apply: increasing_alphaL_l.
Qed.

Lemma alphaL_0 l : α_[l] 0 = minn 2 l.
l:nat
α_[l] 0 = minn 2 l
Proof.
l:nat
α_[l] 0 = minn 2 l
rewrite /alphaL /delta /dsum_alphaL /conv /= dsum_alpha_1 dsum_alpha_0.
l:nat
minn (1.*2 + l * 0) (0.*2 + l * 1) - (0.*2 + l * 0) =
minn 2 l
by rewrite muln0 addn0 add0n subn0 muln1.
Qed.

Lemma S0E n : S_[0] n = 0.
n:nat
S_[0] n = 0
Proof.
n:nat
S_[0] n = 0
rewrite /dsum_alphaL /conv.
n:nat
\min_(i <= n) ((S1 i).*2 + 0 * ((3 ^ (n - i)).-1)./2) =
0
elim: n => /= [|n ->]; first by rewrite dsum_alpha_0.
n:nat
minn ((S1 n.+1).*2 + 0 * ((3 ^ (n.+1 - n.+1)).-1)./2)
  0 = 0
by rewrite minn0.
Qed.

Lemma S1E : S_[1] =1 S1.
S_[1] =1 S1
Proof.
S_[1] =1 S1
case => [|i].
S_[1] 0 = S1 0
i:nat
S_[1] i.+1 = S1 i.+1
  by rewrite /dsum_alphaL /conv /= dsum_alpha_0.
i:nat
S_[1] i.+1 = S1 i.+1
rewrite S1_bigmin /dsum_alphaL /conv /= subnn addn0 -S1_bigmin.
i:nat
minn (S1 i.+1).*2
  (\min_(i0 <= i) ((S1 i0).*2 +
                   1 * ((3 ^ (i.+1 - i0)).-1)./2)) =
S1 i.+1
rewrite (_ : \min_(_ <= _) _ = S1 i.+1).
i:nat
minn (S1 i.+1).*2 (S1 i.+1) = S1 i.+1
i:nat
\min_(x <= i) ((S1 x).*2 +
               1 * ((3 ^ (i.+1 - x)).-1)./2) = S1 i.+1
  by rewrite (minn_idPr _) // -addnn leq_addr.
i:nat
\min_(x <= i) ((S1 x).*2 +
               1 * ((3 ^ (i.+1 - x)).-1)./2) = S1 i.+1
by rewrite S1_bigmin; apply: bigmin_ext => i1 i1H; rewrite mul1n.
Qed.



Lemma bound_dsum_alphaL l n : S_[l] n <= (S_[1] n).*2.
l, n:nat
S_[l] n <= (S_[1] n).*2
Proof.
l, n:nat
S_[l] n <= (S_[1] n).*2
rewrite S1E.
l, n:nat
S_[l] n <= (S1 n).*2
have [SLl|lLS] := leqP (S1 n).*2 l; first by rewrite lim_dsum_alphaL_l.
l, n:nat
lLS:l < (S1 n).*2
S_[l] n <= (S1 n).*2
rewrite -(lim_dsum_alphaL_l (leqnn _)).
l, n:nat
lLS:l < (S1 n).*2
S_[l] n <= S_[(S1 n).*2] n
have [/increasingE H _] := concave_dsum_alphaL_l n.
l, n:nat
lLS:l < (S1 n).*2
H:forall n0 n1 : nat,
n0 <= n1 -> S_[n0] n <= S_[n1] n
S_[l] n <= S_[(S1 n).*2] n
by apply/H/ltnW.
Qed.

Lemma alphaL1E k : α_[1] k = α k.
k:nat
α_[1] k = α k
Proof.
k:nat
α_[1] k = α k by rewrite /alphaL /delta !S1E -delta_S1. Qed.


Lemma bound_alphaL l n : α_[l] n <= (α_[1] n).*2.
l, n:nat
α_[l] n <= (α_[1] n).*2
Proof.
l, n:nat
α_[l] n <= (α_[1] n).*2
rewrite alphaL1E.
l, n:nat
α_[l] n <= (α n).*2
have [SLl|lLS] := leqP (S1 n.+1).*2 l.
l, n:nat
SLl:(S1 n.+1).*2 <= l
α_[l] n <= (α n).*2
l, n:nat
lLS:l < (S1 n.+1).*2
α_[l] n <= (α n).*2
 rewrite /alphaL /delta !lim_dsum_alphaL_l //.
l, n:nat
SLl:(S1 n.+1).*2 <= l
(S1 n.+1).*2 - (S1 n).*2 <= (α n).*2
l, n:nat
SLl:(S1 n.+1).*2 <= l
(S1 n).*2 <= l
l, n:nat
lLS:l < (S1 n.+1).*2
α_[l] n <= (α n).*2
   by rewrite -delta_S1 doubleB.
l, n:nat
SLl:(S1 n.+1).*2 <= l
(S1 n).*2 <= l
l, n:nat
lLS:l < (S1 n.+1).*2
α_[l] n <= (α n).*2
 by apply: leq_trans SLl; case: convex_2S1.
l, n:nat
lLS:l < (S1 n.+1).*2
α_[l] n <= (α n).*2
rewrite -delta_S1 /delta doubleB.
l, n:nat
lLS:l < (S1 n.+1).*2
α_[l] n <= (S1 n.+1).*2 - (S1 n).*2
rewrite -(lim_dsum_alphaL_l (leqnn _)).
l, n:nat
lLS:l < (S1 n.+1).*2
α_[l] n <= S_[(S1 n.+1).*2] n.+1 - (S1 n).*2
rewrite -[(S1 n).*2](@lim_dsum_alphaL_l (S1 n.+1).*2).
l, n:nat
lLS:l < (S1 n.+1).*2
α_[l] n <= S_[(S1 n.+1).*2] n.+1 - S_[(S1 n.+1).*2] n
l, n:nat
lLS:l < (S1 n.+1).*2
(S1 n).*2 <= (S1 n.+1).*2
  rewrite -[_ - _]/(α_[_] _).
l, n:nat
lLS:l < (S1 n.+1).*2
α_[l] n <= α_[(S1 n.+1).*2] n
l, n:nat
lLS:l < (S1 n.+1).*2
(S1 n).*2 <= (S1 n.+1).*2
  by apply: increasingE (increasing_alphaL_l n) _; apply: ltnW.
l, n:nat
lLS:l < (S1 n.+1).*2
(S1 n).*2 <= (S1 n.+1).*2
by case: convex_2S1.
Qed.

Lemma iotaS m n : iota m n.+1 = m :: iota m.+1 n.
m, n:nat
iota m n.+1 = m :: iota m.+1 n
Proof.
m, n:nat
iota m n.+1 = m :: iota m.+1 n by []. Qed.

Lemma count_cons (T : Type) a b (l : seq T) : count a (b :: l) = a b + count a l.
T:Type
a:pred T
b:T
l:seq T
count a (b :: l) = a b + count a l
Proof.
T:Type
a:pred T
b:T
l:seq T
count a (b :: l) = a b + count a l by []. Qed.


Lemma increasing_alpha : increasing α.
increasing α
Proof.
increasing α by move=> n; apply/ltnW/alpha_mono. Qed.

(* THis is 3.3 *)
Lemma alpha_min_exp3 m k : α m + minn (3 ^ k) (α m) <= α (m + k.+1).
m, k:nat
α m + minn (3 ^ k) (α m) <= α (m + k.+1)
Proof.
m, k:nat
α m + minn (3 ^ k) (α m) <= α (m + k.+1)
case: (leqP (α m).*2 (α (m + k.+1))) => [/(leq_trans _)-> //|amkLam].
m, k:nat
α m + minn (3 ^ k) (α m) <= (α m).*2
m, k:nat
amkLam:α (m + k.+1) < (α m).*2
α m + minn (3 ^ k) (α m) <= α (m + k.+1)
  by rewrite -addnn leq_add2l geq_minr.
m, k:nat
amkLam:α (m + k.+1) < (α m).*2
α m + minn (3 ^ k) (α m) <= α (m + k.+1)
apply: leq_trans (leq_add (leqnn _) (geq_minl _ _)) _.
m, k:nat
amkLam:α (m + k.+1) < (α m).*2
α m + 3 ^ k <= α (m + k.+1)
move: m amkLam => n; rewrite [_ + 3 ^ _]addnC.
k, n:nat
α (n + k.+1) < (α n).*2 -> 3 ^ k + α n <= α (n + k.+1)  
set m := n + k.+1.
k, n:nat
m:=n + k.+1:nat
α m < (α n).*2 -> 3 ^ k + α n <= α m
have : k + n < m by rewrite /m addnS addnC.
k, n:nat
m:=n + k.+1:nat
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
move: m => m.
k, n, m:nat
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
elim: k m n => [m n | k IH m n nkLm aL2a].
m, n:nat
0 + n < m -> α m < (α n).*2 -> 3 ^ 0 + α n <= α m
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
3 ^ k.+1 + α n <= α m
  by rewrite add0n add1n => nLm _; apply: alpha_mono.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
3 ^ k.+1 + α n <= α m
pose l := [seq (α i) | i <- iota n (m - n).+1 & 3 %| (α i)].
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
3 ^ k.+1 + α n <= α m
have Il i : i \in l -> exists j, i = 3 * α j.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
i:nat_eqType
i \in l -> exists j : nat, i = 3 * α j
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
3 ^ k.+1 + α n <= α m
  case/mapP => j; rewrite mem_filter => /andP[ajD3 _] ->.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
i, j:nat_eqType
ajD3:3 %| α j
exists j0 : nat, α j = 3 * α j0
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
3 ^ k.+1 + α n <= α m
  have [[i1 [|j1]] /= ajE]: isAB 2 3 (α j) by apply: isAB_alpha.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
i, j:nat_eqType
ajD3:3 %| α j
i1:nat
ajE:α j = 2 ^ i1 * 3 ^ 0
exists j0 : nat, α j = 3 * α j0
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
i, j:nat_eqType
ajD3:3 %| α j
i1, j1:nat
ajE:α j = 2 ^ i1 * 3 ^ j1.+1
exists j0 : nat, α j = 3 * α j0
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
3 ^ k.+1 + α n <= α m
    by move: ajD3; rewrite ajE muln1 Euclid_dvdX //.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
i, j:nat_eqType
ajD3:3 %| α j
i1, j1:nat
ajE:α j = 2 ^ i1 * 3 ^ j1.+1
exists j0 : nat, α j = 3 * α j0
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
3 ^ k.+1 + α n <= α m
  have [k1 ak1E] : {k : nat | α k = 2 ^ i1 * 3 ^ j1} by apply: alpha_surjective.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
i, j:nat_eqType
ajD3:3 %| α j
i1, j1:nat
ajE:α j = 2 ^ i1 * 3 ^ j1.+1
k1:nat
ak1E:α k1 = 2 ^ i1 * 3 ^ j1
exists j0 : nat, α j = 3 * α j0
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
3 ^ k.+1 + α n <= α m
  by exists k1; rewrite ak1E ajE expnS mulnCA.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
3 ^ k.+1 + α n <= α m
have nLm : n <= m by rewrite (leq_trans _ nkLm) // -addSn leq_addl.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
3 ^ k.+1 + α n <= α m
have iS : k.+3 <= size (iota n (m - n).+1).
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
k.+2 < size (iota n (m - n).+1)
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
3 ^ k.+1 + α n <= α m
  by rewrite size_iota ltnS leq_subRL // addnC addSn.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
3 ^ k.+1 + α n <= α m
have kLsl : k.+2 <= size l.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
k.+1 < size l
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  rewrite size_map size_filter -ltnS -[X in _ < X]add1n.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
k.+2 <
1 +
count (fun i : nat => 3 %| α i) (iota n (m - n).+1)
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  move: iS; rewrite -(count_predC (fun i => 3 %| (α i))) -/l => iS.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 <
count (fun i : nat => 3 %| α i)
  (iota n (m - n).+1) +
count (predC (fun i : nat => 3 %| α i))
  (iota n (m - n).+1)
k.+2 <
1 +
count (fun i : nat => 3 %| α i) (iota n (m - n).+1)
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  apply: leq_trans iS _; rewrite addnC leq_add2r.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
count (predC (fun i : nat => 3 %| α i))
  (iota n (m - n).+1) <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  move: aL2a; rewrite -{1}(subnK nLm) addnC.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
α (n + (m - n)) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n (m - n).+1) <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  move: (m - n) => u.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
u:nat
α (n + u) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i)) (iota n u.+1) <=
1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  elim: u {k IH Il l nLm nkLm}n => [n _ /=|k IH n H]; first by case: negb.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
count (predC (fun i : nat => 3 %| α i)) (iota n k.+2) <=
1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  have /IH : α (n.+1 + k) < (α n.+1).*2.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
α (n.+1 + k) < (α n.+1).*2
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) <= 1 ->
count (predC (fun i : nat => 3 %| α i)) (iota n k.+2) <=
1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
    by rewrite addSnnS (leq_trans H) // leq_double ltnW // alpha_mono.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) <= 1 ->
count (predC (fun i : nat => 3 %| α i)) (iota n k.+2) <=
1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  rewrite (iotaS _ _.+1) count_cons.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) <= 1 ->
predC (fun i : nat => 3 %| α i) n +
count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  case: ltngtP => // [|H1 _].
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) < 1 ->
true ->
predC (fun i0 : nat => 3 %| α i0) n +
count (predC (fun i0 : nat => 3 %| α i0))
  (iota n.+1 k.+1) <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
predC (fun i : nat => 3 %| α i) n +
count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
    by case: count => //=; case: (~~ _).
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
predC (fun i : nat => 3 %| α i) n +
count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  have /hasP[i iH1 iH2] : has (predC (fun i => 3 %| α i)) (iota n.+1 k.+1).
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
has (predC (fun i : nat => 3 %| α i)) (iota n.+1 k.+1)
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH1:i \in iota n.+1 k.+1
iH2:predC (fun i : nat => 3 %| α i) i
predC (fun i : nat => 3 %| α i) n +
count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
    by rewrite has_count H1.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH1:i \in iota n.+1 k.+1
iH2:predC (fun i : nat => 3 %| α i) i
predC (fun i : nat => 3 %| α i) n +
count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  move: iH1; rewrite mem_iota => /andP[nLi iLn].
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
predC (fun i : nat => 3 %| α i) n +
count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  rewrite H1; case: (boolP (predC _ _)) => //= iH3.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  have [[i1 [|j1]] /= aiE] : isAB 2 3 (α i) by apply: isAB_alpha.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
    have [[i2 [|j2]] /= anE] : isAB 2 3 (α n) by apply: isAB_alpha.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
i2:nat
anE:α n = 2 ^ i2 * 3 ^ 0
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
i2, j2:nat
anE:α n = 2 ^ i2 * 3 ^ j2.+1
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
      rewrite !muln1 in aiE anE.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, i2:nat
aiE:α i = 2 ^ i1
anE:α n = 2 ^ i2
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
i2, j2:nat
anE:α n = 2 ^ i2 * 3 ^ j2.+1
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
      have : α n < α i by apply: alpha_mono.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, i2:nat
aiE:α i = 2 ^ i1
anE:α n = 2 ^ i2
α n < α i -> 1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
i2, j2:nat
anE:α n = 2 ^ i2 * 3 ^ j2.+1
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
      rewrite aiE anE ltn_exp2l // => i2Li1.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, i2:nat
aiE:α i = 2 ^ i1
anE:α n = 2 ^ i2
i2Li1:i2 < i1
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
i2, j2:nat
anE:α n = 2 ^ i2 * 3 ^ j2.+1
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
      have : (α i) < (α n).*2.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, i2:nat
aiE:α i = 2 ^ i1
anE:α n = 2 ^ i2
i2Li1:i2 < i1
α i < (α n).*2
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, i2:nat
aiE:α i = 2 ^ i1
anE:α n = 2 ^ i2
i2Li1:i2 < i1
α i < (α n).*2 -> 1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
i2, j2:nat
anE:α n = 2 ^ i2 * 3 ^ j2.+1
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
        apply: leq_trans H; rewrite ltnS -addSnnS //.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, i2:nat
aiE:α i = 2 ^ i1
anE:α n = 2 ^ i2
i2Li1:i2 < i1
α i <= α (n.+1 + k)
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, i2:nat
aiE:α i = 2 ^ i1
anE:α n = 2 ^ i2
i2Li1:i2 < i1
α i < (α n).*2 -> 1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
i2, j2:nat
anE:α n = 2 ^ i2 * 3 ^ j2.+1
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
        move: iLn;rewrite addnS ltnS; case: ltngtP => // [iLS _|<-//].
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iH3:~~ (3 %| α n)
i1, i2:nat
aiE:α i = 2 ^ i1
anE:α n = 2 ^ i2
i2Li1:i2 < i1
iLS:i < n.+1 + k
α i <= α (n.+1 + k)
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, i2:nat
aiE:α i = 2 ^ i1
anE:α n = 2 ^ i2
i2Li1:i2 < i1
α i < (α n).*2 -> 1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
i2, j2:nat
anE:α n = 2 ^ i2 * 3 ^ j2.+1
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
        by apply/ltnW/alpha_mono.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, i2:nat
aiE:α i = 2 ^ i1
anE:α n = 2 ^ i2
i2Li1:i2 < i1
α i < (α n).*2 -> 1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
i2, j2:nat
anE:α n = 2 ^ i2 * 3 ^ j2.+1
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
      by rewrite aiE anE -mul2n -expnS ltn_exp2l // ltnS leqNgt i2Li1.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1:nat
aiE:α i = 2 ^ i1 * 3 ^ 0
i2, j2:nat
anE:α n = 2 ^ i2 * 3 ^ j2.+1
1 + 1 <= 1
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
    by case/negP : iH3; rewrite anE expnS mulnCA dvdn_mulr.
m, k:nat
IH:forall n : nat,
α (n + k) < (α n).*2 ->
count (predC (fun i : nat => 3 %| α i))
  (iota n k.+1) <= 1
n:nat
H:α (n + k.+1) < (α n).*2
H1:count (predC (fun i : nat => 3 %| α i))
  (iota n.+1 k.+1) = 1
i:nat_eqType
iH2:predC (fun i : nat => 3 %| α i) i
nLi:n < i
iLn:i < n.+1 + k.+1
iH3:~~ (3 %| α n)
i1, j1:nat
aiE:α i = 2 ^ i1 * 3 ^ j1.+1
1 + 1 <= 1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
  by case/negP : iH2; rewrite aiE expnS mulnCA dvdn_mulr.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
3 ^ k.+1 + α n <= α m
pose n1 := head 0 l.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
3 ^ k.+1 + α n <= α m
pose m1 := last 0 l.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
3 ^ k.+1 + α n <= α m
have lS : sorted ltn l.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
sorted ltn l
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
3 ^ k.+1 + α n <= α m
  rewrite sorted_map.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
sorted (relpre [eta α] ltn)
  [seq i <- iota n (m - n).+1 | 3 %| α i]
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
3 ^ k.+1 + α n <= α m
  apply: sorted_filter.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
transitive (relpre [eta α] ltn)
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
sorted (relpre [eta α] ltn) (iota n (m - n).+1)
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
3 ^ k.+1 + α n <= α m
    by move=> a b c H1 H2; apply: ltn_trans H2.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
sorted (relpre [eta α] ltn) (iota n (m - n).+1)
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
3 ^ k.+1 + α n <= α m
  move: (_ - _).+1 => u; elim: u (n) => //= k1 IH1 n0.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
k1:nat
IH1:forall n : nat,
sorted (relpre [eta α] ltn) (iota n k1)
n0:nat
path (relpre [eta α] ltn) n0 (iota n0.+1 k1)
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
3 ^ k.+1 + α n <= α m
  by case: (k1) (IH1 n0.+1) => //= k2 -; rewrite alpha_mono.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
3 ^ k.+1 + α n <= α m
have uS : uniq l by move: lS; rewrite ltn_sorted_uniq_leq; case/andP.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
3 ^ k.+1 + α n <= α m
have n1Il : n1 \in l.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1 \in l
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
3 ^ k.+1 + α n <= α m
  by rewrite /n1; case: (l) kLsl => [|a l1]; rewrite /= ?inE ?eqxx.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
3 ^ k.+1 + α n <= α m
case: (Il _ n1Il) => n2 n2E.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
3 ^ k.+1 + α n <= α m
have m1Il : m1 \in l.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1 \in l
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
3 ^ k.+1 + α n <= α m
  by rewrite /m1; case: (l) kLsl => [|a l1]; rewrite //= mem_last.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
3 ^ k.+1 + α n <= α m
case: (Il _ m1Il) => m2 m2E.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
3 ^ k.+1 + α n <= α m
have n1Lm1 : n1 < m1.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1 < m1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
3 ^ k.+1 + α n <= α m
  rewrite /n1 /m1; case: (l) kLsl lS => [|a [|b l1 _]] //= /andP[].
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
a, b:nat
l1:seq nat
a < b -> path ltn b l1 -> a < last b l1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
3 ^ k.+1 + α n <= α m
  elim: l1 a b => //= c l1 IH1 a b aLb /andP[bLc pH].
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
c:nat
l1:seq nat
IH1:forall a b : nat,
a < b -> path ltn b l1 -> a < last b l1
a, b:nat
aLb:a < b
bLc:b < c
pH:path ltn c l1
a < last c l1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
3 ^ k.+1 + α n <= α m
  by apply: ltn_trans aLb (IH1 _ _ _ _).
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
3 ^ k.+1 + α n <= α m
have n2Lm2 : n2 < m2.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2 < m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
3 ^ k.+1 + α n <= α m
  move: n1Lm1; rewrite n2E m2E ltn_mul2l /=.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
α n2 < α m2 -> n2 < m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
3 ^ k.+1 + α n <= α m
  case: (ltngtP n2 m2) => // [m2Ln2|->]; last by rewrite ltnn.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
m2Ln2:m2 < n2
α n2 < α m2 -> false
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
3 ^ k.+1 + α n <= α m
  by rewrite ltnNge ltnW // alpha_mono.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
3 ^ k.+1 + α n <= α m
pose l1 := [seq 3 * α i | i <- iota n2 (m2 - n2).+1].
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
3 ^ k.+1 + α n <= α m
have l1size : size l1 = (m2 - n2).+1 by rewrite size_map size_iota.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
3 ^ k.+1 + α n <= α m
have H : {subset l <= l1}.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
{subset l <= l1}
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
  move=> i iIl; case: (Il _ iIl) => j jE.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
i \in l1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
  apply/mapP; exists j; rewrite // mem_iota addnS addnC subnK //; last first.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n2 <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n2 <= j < m2.+1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
    by rewrite ltnW.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n2 <= j < m2.+1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
  rewrite ltnS; apply/andP; split.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n2 <= j
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
    have: n1 <= i.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n1 <= i
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n1 <= i -> n2 <= j
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
      rewrite /n1; case: (l) kLsl iIl lS => //= a l2 _.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
a:nat
l2:seq nat
i \in a :: l2 -> path ltn a l2 -> a <= i
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n1 <= i -> n2 <= j
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
      rewrite inE => /orP[/eqP->//|].
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
a:nat
l2:seq nat
i \in l2 -> path ltn a l2 -> a <= i
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n1 <= i -> n2 <= j
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
      elim: l2 a => //= b l2 IH1 a.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
b:nat
l2:seq nat
IH1:forall a : nat,
i \in l2 -> path ltn a l2 -> a <= i
a:nat
i \in b :: l2 -> (a < b) && path ltn b l2 -> a <= i
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n1 <= i -> n2 <= j
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
      rewrite inE => /orP[/eqP->//|bIl2] /andP[aLb pH]; first by apply: ltnW.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
b:nat
l2:seq nat
IH1:forall a : nat,
i \in l2 -> path ltn a l2 -> a <= i
a:nat
bIl2:i \in l2
aLb:a < b
pH:path ltn b l2
a <= i
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n1 <= i -> n2 <= j
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
      apply: leq_trans (ltnW aLb) _.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
b:nat
l2:seq nat
IH1:forall a : nat,
i \in l2 -> path ltn a l2 -> a <= i
a:nat
bIl2:i \in l2
aLb:a < b
pH:path ltn b l2
b <= i
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n1 <= i -> n2 <= j
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
      by apply: IH1.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
n1 <= i -> n2 <= j
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
    rewrite n2E jE leq_mul2l /=; case: (ltngtP n2 j) => // jLn2.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
jLn2:j < n2
α n2 <= α j -> false
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
    by rewrite leqNgt alpha_mono.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
  have: i <= m1.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
i <= m1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
i <= m1 -> j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
    rewrite /m1; case: (l) kLsl iIl lS => //= a l2 _.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
a:nat
l2:seq nat
i \in a :: l2 -> path ltn a l2 -> i <= last a l2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
i <= m1 -> j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
    elim: l2 a (i) => /= [a i1|b l2 IH1 a i1]; first by rewrite inE => /eqP->.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
b:nat
l2:seq nat
IH1:forall a i : nat,
i \in a :: l2 -> path ltn a l2 -> i <= last a l2
a, i1:nat
i1 \in [:: a, b & l2] ->
(a < b) && path ltn b l2 -> i1 <= last b l2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
i <= m1 -> j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
    rewrite inE => /orP[/eqP->//|bIl2] /andP[aLb pH].
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
b:nat
l2:seq nat
IH1:forall a i : nat,
i \in a :: l2 -> path ltn a l2 -> i <= last a l2
a, i1:nat
aLb:a < b
pH:path ltn b l2
a <= last b l2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
b:nat
l2:seq nat
IH1:forall a i : nat,
i \in a :: l2 -> path ltn a l2 -> i <= last a l2
a, i1:nat
bIl2:i1 \in b :: l2
aLb:a < b
pH:path ltn b l2
i1 <= last b l2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
i <= m1 -> j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
      apply: leq_trans (ltnW aLb) (IH1 _ _ _ _) => //.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
b:nat
l2:seq nat
IH1:forall a i : nat,
i \in a :: l2 -> path ltn a l2 -> i <= last a l2
a, i1:nat
aLb:a < b
pH:path ltn b l2
b \in b :: l2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
b:nat
l2:seq nat
IH1:forall a i : nat,
i \in a :: l2 -> path ltn a l2 -> i <= last a l2
a, i1:nat
bIl2:i1 \in b :: l2
aLb:a < b
pH:path ltn b l2
i1 <= last b l2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
i <= m1 -> j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
      by rewrite inE eqxx.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
n1:=head 0 l:nat
m1:=last 0 l:nat
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
j:nat
jE:i = 3 * α j
b:nat
l2:seq nat
IH1:forall a i : nat,
i \in a :: l2 -> path ltn a l2 -> i <= last a l2
a, i1:nat
bIl2:i1 \in b :: l2
aLb:a < b
pH:path ltn b l2
i1 <= last b l2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
i <= m1 -> j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
    by apply: IH1.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
i <= m1 -> j <= m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
  rewrite m2E jE leq_mul2l /=; case: (ltngtP m2 j) => // jLn2.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
i:nat_eqType
iIl:i \in l
j:nat
jE:i = 3 * α j
jLn2:m2 < j
α j <= α m2 -> false
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
  by rewrite leqNgt alpha_mono.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
3 ^ k.+1 + α n <= α m
have kn2Lm2 : k + n2 < m2.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
k + n2 < m2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
3 ^ k.+1 + α n <= α m
  rewrite -addSn addnC -leq_subRL; last by apply: ltnW.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
k < m2 - n2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
3 ^ k.+1 + α n <= α m
  by rewrite -ltnS -l1size (leq_trans kLsl) // uniq_leq_size.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
3 ^ k.+1 + α n <= α m
have anLan2 : α n <= 3 * α n2.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
α n <= 3 * α n2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
3 ^ k.+1 + α n <= α m
  rewrite -n2E.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
α n <= n1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
3 ^ k.+1 + α n <= α m
  case/mapP : n1Il => i1.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
i1:nat_eqType
i1 \in [seq i <- iota n (m - n).+1 | 3 %| α i] ->
n1 = α i1 -> α n <= n1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
3 ^ k.+1 + α n <= α m
  rewrite mem_filter mem_iota => /andP[_ /andP[nLi1 _] ->].
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
i1:nat_eqType
nLi1:n <= i1
α n <= α i1
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
3 ^ k.+1 + α n <= α m
  by apply: (increasingE increasing_alpha).
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
3 ^ k.+1 + α n <= α m
have am2Lam : 3 * α m2 <= α m.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
3 * α m2 <= α m
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
3 ^ k.+1 + α n <= α m
  rewrite -m2E.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
m1 <= α m
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
3 ^ k.+1 + α n <= α m
  case/mapP : m1Il => i1.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
i1:nat_eqType
i1 \in [seq i <- iota n (m - n).+1 | 3 %| α i] ->
m1 = α i1 -> m1 <= α m
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
3 ^ k.+1 + α n <= α m
  rewrite mem_filter mem_iota => /andP[_ /andP[_ i1Lm] ->].
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
i1:nat_eqType
i1Lm:i1 < n + (m - n).+1
α i1 <= α m
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
3 ^ k.+1 + α n <= α m
  rewrite addnS ltnS addnC subnK // in i1Lm.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
i1:nat_eqType
i1Lm:i1 <= m
α i1 <= α m
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
3 ^ k.+1 + α n <= α m
  by apply: (increasingE increasing_alpha).
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
3 ^ k.+1 + α n <= α m
have am2Lan2 : α m2 < (α n2).*2.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
α m2 < (α n2).*2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
am2Lan2:α m2 < (α n2).*2
3 ^ k.+1 + α n <= α m
  rewrite -[_ < _]andTb -(ltn_mul2l 3) -doubleMr.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
3 * α m2 < (3 * α n2).*2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
am2Lan2:α m2 < (α n2).*2
3 ^ k.+1 + α n <= α m
  apply: leq_ltn_trans am2Lam _.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
α m < (3 * α n2).*2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
am2Lan2:α m2 < (α n2).*2
3 ^ k.+1 + α n <= α m
  apply: leq_trans aL2a _.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
(α n).*2 <= (3 * α n2).*2
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
am2Lan2:α m2 < (α n2).*2
3 ^ k.+1 + α n <= α m
  by rewrite leq_double.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lam:3 * α m2 <= α m
am2Lan2:α m2 < (α n2).*2
3 ^ k.+1 + α n <= α m
apply: leq_trans am2Lam.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lan2:α m2 < (α n2).*2
3 ^ k.+1 + α n <= 3 * α m2
apply: leq_trans (leq_add (leqnn _) anLan2) _.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lan2:α m2 < (α n2).*2
3 ^ k.+1 + 3 * α n2 <= 3 * α m2
rewrite expnS -mulnDr leq_mul2l /=.
k:nat
IH:forall m n : nat,
k + n < m -> α m < (α n).*2 -> 3 ^ k + α n <= α m
m, n:nat
nkLm:k.+1 + n < m
aL2a:α m < (α n).*2
l:=[seq α i | i <- iota n (m - n).+1 & 3 %| α i]:seq nat
Il:forall i : nat_eqType,
i \in l -> exists j : nat, i = 3 * α j
nLm:n <= m
iS:k.+2 < size (iota n (m - n).+1)
kLsl:k.+1 < size l
n1:=head 0 l:nat
m1:=last 0 l:nat
lS:sorted ltn l
uS:uniq l
n1Il:n1 \in l
n2:nat
n2E:n1 = 3 * α n2
m1Il:m1 \in l
m2:nat
m2E:m1 = 3 * α m2
n1Lm1:n1 < m1
n2Lm2:n2 < m2
l1:=[seq 3 * α i | i <- iota n2 (m2 - n2).+1]:seq nat
l1size:size l1 = (m2 - n2).+1
H:{subset l <= l1}
kn2Lm2:k + n2 < m2
anLan2:α n <= 3 * α n2
am2Lan2:α m2 < (α n2).*2
3 ^ k + α n2 <= α m2
by apply: IH kn2Lm2 am2Lan2.
Qed.

Lemma alpha_min_exp3_cor m k : 3 ^k <= α m -> α m + 3 ^ k <= α (m + k.+1).
m, k:nat
3 ^ k <= α m -> α m + 3 ^ k <= α (m + k.+1)
Proof.
m, k:nat
3 ^ k <= α m -> α m + 3 ^ k <= α (m + k.+1)
move=> kLam.
m, k:nat
kLam:3 ^ k <= α m
α m + 3 ^ k <= α (m + k.+1)
have := alpha_min_exp3 m k.
m, k:nat
kLam:3 ^ k <= α m
α m + minn (3 ^ k) (α m) <= α (m + k.+1) ->
α m + 3 ^ k <= α (m + k.+1)
by rewrite (minn_idPl _).
Qed.

Lemma eq_dsum_alphaL l n :
  {i : 'I_n.+1 | S_[l] n = (S1 i).*2 + l * ((3 ^ (n - i)).-1)./2}.
l, n:nat
{i : 'I_n.+1
| S_[l] n = (S1 i).*2 + l * ((3 ^ (n - i)).-1)./2}
Proof.
l, n:nat
{i : 'I_n.+1
| S_[l] n = (S1 i).*2 + l * ((3 ^ (n - i)).-1)./2} by apply: eq_bigmin. Qed.

Lemma increasing_dsum_alpha : increasing S1.
increasing S1
Proof.
increasing S1
by move=> n; rewrite -leq_double; case: convex_2S1.
Qed.

Lemma even_expn3_pred n : ~~ odd (3 ^ n).-1.
n:nat
~~ odd (3 ^ n).-1
Proof.
n:nat
~~ odd (3 ^ n).-1
by rewrite -subn1 oddB ?expn_gt0 // oddX orbT.
Qed.

(* This is 3.4 *)
Lemma dsum_alphaL_alpha l n : 1 < l -> S_[l.+1] n.+1 <= S_[l] n + (α_[1] n).*2.
l, n:nat
1 < l -> S_[l.+1] n.+1 <= S_[l] n + (α_[1] n).*2
Proof.
l, n:nat
1 < l -> S_[l.+1] n.+1 <= S_[l] n + (α_[1] n).*2
rewrite alphaL1E => l_gt1.
l, n:nat
l_gt1:1 < l
S_[l.+1] n.+1 <= S_[l] n + (α n).*2
case: (eq_dsum_alphaL l n) => [] [/= m mLn] mH.
l, n:nat
l_gt1:1 < l
m:nat
mLn:m < n.+1
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
S_[l.+1] n.+1 <= S_[l] n + (α n).*2
rewrite mH; rewrite ltnS in mLn.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m <= n
S_[l.+1] n.+1 <=
(S1 m).*2 + l * ((3 ^ (n - m)).-1)./2 + (α n).*2
apply: leq_trans (_ : (S1 m.+1).*2 + l.+1 * ((3 ^ (n - m)).-1)./2 <= _).
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m <= n
S_[l.+1] n.+1 <=
(S1 m.+1).*2 + l.+1 * ((3 ^ (n - m)).-1)./2
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m <= n
(S1 m.+1).*2 + l.+1 * ((3 ^ (n - m)).-1)./2 <=
(S1 m).*2 + l * ((3 ^ (n - m)).-1)./2 + (α n).*2
  by rewrite -subSS; apply: bigmin_inf (leqnn _).
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m <= n
(S1 m.+1).*2 + l.+1 * ((3 ^ (n - m)).-1)./2 <=
(S1 m).*2 + l * ((3 ^ (n - m)).-1)./2 + (α n).*2
rewrite addnAC mulSn addnA leq_add2r.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m <= n
(S1 m.+1).*2 + ((3 ^ (n - m)).-1)./2 <=
(S1 m).*2 + (α n).*2
rewrite -leq_subLR -addnBAC ?leq_double ?increasing_dsum_alpha //.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m <= n
(S1 m.+1).*2 - (S1 m).*2 + ((3 ^ (n - m)).-1)./2 <=
(α n).*2
rewrite [_ - _]delta_2S1.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m <= n
(α m).*2 + ((3 ^ (n - m)).-1)./2 <= (α n).*2
case: ltngtP mLn => // [mLn _ |-> _]; last by rewrite subnn addn0.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(α m).*2 + ((3 ^ (n - m)).-1)./2 <= (α n).*2
apply: leq_trans (_ : (α m).*2 + (3 ^ (n - m).-1).*2 <= _).
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(α m).*2 + ((3 ^ (n - m)).-1)./2 <=
(α m).*2 + (3 ^ (n - m).-1).*2
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(α m).*2 + (3 ^ (n - m).-1).*2 <= (α n).*2
  rewrite leq_add2l -leq_double.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(((3 ^ (n - m)).-1)./2).*2 <= ((3 ^ (n - m).-1).*2).*2
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(α m).*2 + (3 ^ (n - m).-1).*2 <= (α n).*2
  apply: leq_trans (_ : (3 ^ (n - m)).-1 <= _).
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(((3 ^ (n - m)).-1)./2).*2 <= (3 ^ (n - m)).-1
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(3 ^ (n - m)).-1 <= ((3 ^ (n - m).-1).*2).*2
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(α m).*2 + (3 ^ (n - m).-1).*2 <= (α n).*2
    by rewrite -[X in _ <= X]odd_double_half leq_addl.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(3 ^ (n - m)).-1 <= ((3 ^ (n - m).-1).*2).*2
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(α m).*2 + (3 ^ (n - m).-1).*2 <= (α n).*2
  apply: leq_trans (ssrnat.leq_pred _) _.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
3 ^ (n - m) <= ((3 ^ (n - m).-1).*2).*2
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(α m).*2 + (3 ^ (n - m).-1).*2 <= (α n).*2
  by rewrite -[n -m]prednK ?subn_gt0 // expnSr -!muln2 -mulnA leq_mul.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(α m).*2 + (3 ^ (n - m).-1).*2 <= (α n).*2
rewrite -doubleD leq_double.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
α m + 3 ^ (n - m).-1 <= α n
have := @alpha_min_exp3_cor m (n - m).-1.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(3 ^ (n - m).-1 <= α m ->
 α m + 3 ^ (n - m).-1 <= α (m + (n - m).-1.+1)) ->
α m + 3 ^ (n - m).-1 <= α n
rewrite prednK ?subn_gt0 // [_ + (_ - _)]addnC subnK; last by apply: ltnW.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(3 ^ (n - m).-1 <= α m -> α m + 3 ^ (n - m).-1 <= α n) ->
α m + 3 ^ (n - m).-1 <= α n
apply.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
3 ^ (n - m).-1 <= α m
have : S_[l] n <= (S1 m.+1).*2 + l * (3 ^ (n - m.+1)).-1./2.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
S_[l] n <= (S1 m.+1).*2 + l * ((3 ^ (n - m.+1)).-1)./2
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
S_[l] n <= (S1 m.+1).*2 + l * ((3 ^ (n - m.+1)).-1)./2 ->
3 ^ (n - m).-1 <= α m
  by apply: bigmin_inf mLn (leqnn _).
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
S_[l] n <= (S1 m.+1).*2 + l * ((3 ^ (n - m.+1)).-1)./2 ->
3 ^ (n - m).-1 <= α m
rewrite mH (_ : S1 m.+1 = S1 m + α m); last first.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
S1 m.+1 = S1 m + α m
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(S1 m).*2 + l * ((3 ^ (n - m)).-1)./2 <=
(S1 m + α m).*2 + l * ((3 ^ (n - m.+1)).-1)./2 ->
3 ^ (n - m).-1 <= α m
  by rewrite addnC -delta_S1 subnK // increasing_dsum_alpha.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(S1 m).*2 + l * ((3 ^ (n - m)).-1)./2 <=
(S1 m + α m).*2 + l * ((3 ^ (n - m.+1)).-1)./2 ->
3 ^ (n - m).-1 <= α m
rewrite doubleD -!addnA leq_add2l.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
l * ((3 ^ (n - m)).-1)./2 <=
(α m).*2 + l * ((3 ^ (n - m.+1)).-1)./2 ->
3 ^ (n - m).-1 <= α m
rewrite addnC -leq_subLR -mulnBr -[_ <= α m]leq_double.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
l * (((3 ^ (n - m)).-1)./2 - ((3 ^ (n - m.+1)).-1)./2) <=
(α m).*2 -> (3 ^ (n - m).-1).*2 <= (α m).*2
rewrite -even_halfB ?even_expn3_pred //.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
l * ((3 ^ (n - m)).-1 - (3 ^ (n - m.+1)).-1)./2 <=
(α m).*2 -> (3 ^ (n - m).-1).*2 <= (α m).*2
have ->: (3 ^ (n - m)).-1 - (3 ^ (n - m.+1)).-1 = (3 ^ (n - m).-1).*2.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
(3 ^ (n - m)).-1 - (3 ^ (n - m.+1)).-1 =
(3 ^ (n - m).-1).*2
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
l * ((3 ^ (n - m).-1).*2)./2 <= (α m).*2 ->
(3 ^ (n - m).-1).*2 <= (α m).*2
  rewrite subnS -{1}predn_sub -subnS prednK ?expn_gt0 //.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
3 ^ (n - m) - 3 ^ (n - m).-1 = (3 ^ (n - m).-1).*2
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
l * ((3 ^ (n - m).-1).*2)./2 <= (α m).*2 ->
(3 ^ (n - m).-1).*2 <= (α m).*2
  rewrite -{1}[(n - m)]prednK ?subn_gt0 // expnS.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
3 * 3 ^ (n - m).-1 - 3 ^ (n - m).-1 =
(3 ^ (n - m).-1).*2
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
l * ((3 ^ (n - m).-1).*2)./2 <= (α m).*2 ->
(3 ^ (n - m).-1).*2 <= (α m).*2
  by rewrite -mul2n -{4}[2]/(3 - 1) mulnBl mul1n.
l, n:nat
l_gt1:1 < l
m:nat
mH:S_[l] n = (S1 m).*2 + l * ((3 ^ (n - m)).-1)./2
mLn:m < n
l * ((3 ^ (n - m).-1).*2)./2 <= (α m).*2 ->
(3 ^ (n - m).-1).*2 <= (α m).*2
by move=> /(leq_trans _)-> //; rewrite doubleK -mul2n leq_mul2r l_gt1 orbT.
Qed.

Lemma dsum_alphal_min_3  l n :
  S_[l] n.+1 = minn (S1 n.+1).*2 (S_[3 * l] n + l).
l, n:nat
S_[l] n.+1 = minn (S1 n.+1).*2 (S_[3 * l] n + l)
Proof.
l, n:nat
S_[l] n.+1 = minn (S1 n.+1).*2 (S_[3 * l] n + l)
rewrite {1}/dsum_alphaL /conv /= subnn muln0 addn0.
l, n:nat
minn (S1 n.+1).*2
  (\min_(i <= n) ((S1 i).*2 +
                  l * ((3 ^ (n.+1 - i)).-1)./2)) =
minn (S1 n.+1).*2 (S_[3 * l] n + l)
congr (minn _ _).
l, n:nat
\min_(i <= n) ((S1 i).*2 +
               l * ((3 ^ (n.+1 - i)).-1)./2) =
S_[3 * l] n + l
rewrite /dsum_alphaL /conv -bigmin_constD.
l, n:nat
\min_(i <= n) ((S1 i).*2 +
               l * ((3 ^ (n.+1 - i)).-1)./2) =
\min_(i <= n) ((S1 i).*2 +
               3 * l * ((3 ^ (n - i)).-1)./2 + l)
apply: bigmin_ext => i iH; rewrite -addnA; congr (_ + _).
l, n, i:nat
iH:i <= n
l * ((3 ^ (n.+1 - i)).-1)./2 =
3 * l * ((3 ^ (n - i)).-1)./2 + l
rewrite -mulnAC -{3}[l]mul1n -mulnDl mulnC; congr (_ * _).
l, n, i:nat
iH:i <= n
((3 ^ (n.+1 - i)).-1)./2 =
3 * ((3 ^ (n - i)).-1)./2 + 1
rewrite -even_halfMl ?even_expn3_pred // -{4}[1]/(2./2).
l, n, i:nat
iH:i <= n
((3 ^ (n.+1 - i)).-1)./2 =
(3 * (3 ^ (n - i)).-1)./2 + 2./2
rewrite -even_halfD ?oddM ?even_expn3_pred //; congr (_./2).
l, n, i:nat
iH:i <= n
(3 ^ (n.+1 - i)).-1 = 3 * (3 ^ (n - i)).-1 + 2
rewrite subSn // expnS -!subn1 mulnBr muln1 addn2 -!subSn ?subSS //.
l, n, i:nat
iH:i <= n
2 < (3 * 3 ^ (n - i)).+1
l, n, i:nat
iH:i <= n
2 < 3 * 3 ^ (n - i)
  by rewrite ltnS -expnS (ltn_exp2l 0).
l, n, i:nat
iH:i <= n
2 < 3 * 3 ^ (n - i)
by rewrite -expnS (leq_exp2l 1).
Qed.


(* This is first part of 3.5 *)
Lemma dsum_alpha3_S n : S_[1] n.+1 = (S_[3] n).+1.
n:nat
S_[1] n.+1 = (S_[3] n).+1
Proof.
n:nat
S_[1] n.+1 = (S_[3] n).+1
rewrite S1E.
n:nat
S1 n.+1 = (S_[3] n).+1
have := dsum_alphal_min_3 1 n.
n:nat
S_[1] n.+1 = minn (S1 n.+1).*2 (S_[3 * 1] n + 1) ->
S1 n.+1 = (S_[3] n).+1
rewrite S1E addn1 /minn; case: leqP => // _ /eqP.
n:nat
S1 n.+1 == (S1 n.+1).*2 -> S1 n.+1 = (S_[3] n).+1
rewrite -addnn -{1}[S1 _]add0n eqn_add2r.
n:nat
0 == S1 n.+1 -> S1 n.+1 = (S_[3] n).+1
suff : 0 < S1 n.+1 by case: S1.
n:nat
0 < S1 n.+1
rewrite -dsum_alpha_1 increasingE //.
n:nat
increasing S1
by apply: increasing_dsum_alpha.
Qed.

Lemma alphaL_3E n : α_[3] n = α_[1] n.+1.
n:nat
α_[3] n = α_[1] n.+1
Proof.
n:nat
α_[3] n = α_[1] n.+1
by rewrite /alphaL /delta -subSS -!dsum_alpha3_S.
Qed.

(* This is second part of 3.5 *)
Lemma dsum_alpha3l l n : S_[l] n.+1 <= S_[3 * l] n + l.
l, n:nat
S_[l] n.+1 <= S_[3 * l] n + l
Proof.
l, n:nat
S_[l] n.+1 <= S_[3 * l] n + l
rewrite dsum_alphal_min_3.
l, n:nat
minn (S1 n.+1).*2 (S_[3 * l] n + l) <= S_[3 * l] n + l
by apply: geq_minr.
Qed.

Lemma leq_dsum_alpha_2l_l l n : S_[l] n + S_[l] n.+1 <= (S_[l.*2] n).*2 + l.
l, n:nat
S_[l] n + S_[l] n.+1 <= (S_[l.*2] n).*2 + l
Proof.
l, n:nat
S_[l] n + S_[l] n.+1 <= (S_[l.*2] n).*2 + l
have H := concaveEk (concave_dsum_alphaL_l n) (leq_addr l l).
l, n:nat
H:S_[l + l - l] n + S_[l + l + l] n <=
(S_[l + l] n).*2
S_[l] n + S_[l] n.+1 <= (S_[l.*2] n).*2 + l
rewrite addnK addnn -{1}mul2n -{3}[l]mul1n -mulnDl in H.
l, n:nat
H:S_[l] n + S_[(2 + 1) * l] n <= (S_[l.*2] n).*2
S_[l] n + S_[l] n.+1 <= (S_[l.*2] n).*2 + l
apply: leq_trans (leq_add H (leqnn _)).
l, n:nat
H:S_[l] n + S_[(2 + 1) * l] n <= (S_[l.*2] n).*2
S_[l] n + S_[l] n.+1 <=
S_[l] n + S_[(2 + 1) * l] n + l
by rewrite -addnA leq_add2l dsum_alpha3l.
Qed.

Lemma leq_dsum_alpha_2l_1 n : S_[1] n + S_[1] n.+1 <= (S_[2] n).*2.+1.
n:nat
S_[1] n + S_[1] n.+1 <= (S_[2] n).*2.+1
Proof.
n:nat
S_[1] n + S_[1] n.+1 <= (S_[2] n).*2.+1 by have := leq_dsum_alpha_2l_l 1 n; rewrite addn1. Qed.


(* This is 3.7 *)
Lemma alpha_4_3 n : 3 < n -> 3 * α_[1] n.+1 <= 4 * α_[1] n.
n:nat
3 < n -> 3 * α_[1] n.+1 <= 4 * α_[1] n
Proof.
n:nat
3 < n -> 3 * α_[1] n.+1 <= 4 * α_[1] n
rewrite !alphaL1E.
n:nat
3 < n -> 3 * α n.+1 <= 4 * α n
move=> n_gt_3.
n:nat
n_gt_3:3 < n
3 * α n.+1 <= 4 * α n
have an_gt_5 : 5 < α n by apply: increasingE (increasing_alpha) n_gt_3.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
3 * α n.+1 <= 4 * α n
have [[i [|j]] /= anE] : isAB 2 3 (α n) by apply: isAB_alpha.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i:nat
anE:α n = 2 ^ i * 3 ^ 0
3 * α n.+1 <= 4 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
  rewrite muln1 in anE.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i:nat
anE:α n = 2 ^ i
3 * α n.+1 <= 4 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
  case: i anE an_gt_5 => [|[|[|i anE an_gt_5]]]; try by move=> ->.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
3 * α n.+1 <= 4 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
  suff H1 : 8 * α n.+1 <= 9 * α n.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
H1:8 * α n.+1 <= 9 * α n
3 * α n.+1 <= 4 * α n
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
    rewrite -3!leq_double -!mul2n !mulnA -[_ * 3]/(3 * 8).
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
H1:8 * α n.+1 <= 9 * α n
3 * 8 * α n.+1 <= 2 * 2 * 2 * 4 * α n
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
    apply: leq_trans (_ : (3 * 9) * α n <= _).
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
H1:8 * α n.+1 <= 9 * α n
3 * 8 * α n.+1 <= 3 * 9 * α n
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
H1:8 * α n.+1 <= 9 * α n
3 * 9 * α n <= 2 * 2 * 2 * 4 * α n
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
      by rewrite -!mulnA leq_mul2l //.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
H1:8 * α n.+1 <= 9 * α n
3 * 9 * α n <= 2 * 2 * 2 * 4 * α n
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
    by rewrite leq_mul2r orbT.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
  pose m := 2 ^ i * 3 ^ 2.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
  case: (alpha_surjective (isT : 1 < 2) (isT : 2 < 3) (isT : coprime 2 3) i 2)
    => m1 m1H.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
m1:nat
m1H:α m1 = 2 ^ i * 3 ^ 2
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
  have H2 : α n < α m1.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
m1:nat
m1H:α m1 = 2 ^ i * 3 ^ 2
α n < α m1
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
m1:nat
m1H:α m1 = 2 ^ i * 3 ^ 2
H2:α n < α m1
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
    by rewrite anE m1H !expnSr -!mulnA ltn_mul2l ?expn_gt0.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
m1:nat
m1H:α m1 = 2 ^ i * 3 ^ 2
H2:α n < α m1
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
  have H3 : α n.+1 <= α m1.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
m1:nat
m1H:α m1 = 2 ^ i * 3 ^ 2
H2:α n < α m1
α n.+1 <= α m1
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
m1:nat
m1H:α m1 = 2 ^ i * 3 ^ 2
H2:α n < α m1
H3:α n.+1 <= α m1
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
    case: (leqP m1 n) => /(increasingE increasing_alpha) //.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
m1:nat
m1H:α m1 = 2 ^ i * 3 ^ 2
H2:α n < α m1
α m1 <= α n -> α n.+1 <= α m1
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
m1:nat
m1H:α m1 = 2 ^ i * 3 ^ 2
H2:α n < α m1
H3:α n.+1 <= α m1
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
    by rewrite leqNgt H2.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
m1:nat
m1H:α m1 = 2 ^ i * 3 ^ 2
H2:α n < α m1
H3:α n.+1 <= α m1
8 * α n.+1 <= 9 * α n
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
  rewrite anE !expnS [X in _ <= X]mulnC !mulnA -[2 * 2 * 2]/8 -mulnA leq_mul2l.
n:nat
n_gt_3:3 < n
i:nat
anE:α n = 2 ^ i.+3
an_gt_5:5 < α n
m:=2 ^ i * 3 ^ 2:nat
m1:nat
m1H:α m1 = 2 ^ i * 3 ^ 2
H2:α n < α m1
H3:α n.+1 <= α m1
(8 == 0) || (α n.+1 <= 2 ^ i * 9)
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
  by rewrite  -m1H.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
3 * α n.+1 <= 4 * α n
pose m := 2 ^ i.+2 * 3 ^ j.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
3 * α n.+1 <= 4 * α n
case: (alpha_surjective (isT : 1 < 2) (isT : 2 < 3) (isT : coprime 2 3) i.+2 j)
    => m1 m1H.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
3 * α n.+1 <= 4 * α n
have H2 : α n < α m1.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
α n < α m1
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
H2:α n < α m1
3 * α n.+1 <= 4 * α n
  rewrite anE m1H !expnSr -!mulnA ltn_mul2l ?expn_gt0 //=.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
3 ^ j * 3 < 2 * (2 * 3 ^ j)
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
H2:α n < α m1
3 * α n.+1 <= 4 * α n
  by rewrite mulnC !mulnA ltn_mul2r ?expn_gt0.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
H2:α n < α m1
3 * α n.+1 <= 4 * α n
have H3 : α n.+1 <= α m1.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
H2:α n < α m1
α n.+1 <= α m1
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
H2:α n < α m1
H3:α n.+1 <= α m1
3 * α n.+1 <= 4 * α n
  case: (leqP m1 n) => /(increasingE increasing_alpha) //.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
H2:α n < α m1
α m1 <= α n -> α n.+1 <= α m1
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
H2:α n < α m1
H3:α n.+1 <= α m1
3 * α n.+1 <= 4 * α n
  by rewrite leqNgt H2.
n:nat
n_gt_3:3 < n
an_gt_5:5 < α n
i, j:nat
anE:α n = 2 ^ i * 3 ^ j.+1
m:=2 ^ i.+2 * 3 ^ j:nat
m1:nat
m1H:α m1 = 2 ^ i.+2 * 3 ^ j
H2:α n < α m1
H3:α n.+1 <= α m1
3 * α n.+1 <= 4 * α n
by rewrite anE !expnSr -[4]/(2 ^ 2) !mulnA -expnD add2n -m1H mulnC leq_mul2r.
Qed.

Lemma alphaL_1_2 n : α_[1] (n.+1) <= (α_[1] n).*2.
n:nat
α_[1] n.+1 <= (α_[1] n).*2
Proof.
n:nat
α_[1] n.+1 <= (α_[1] n).*2 
rewrite !alphaL1E.
n:nat
α n.+1 <= (α n).*2
case: n => // [] [|[|[|]]] // k.
k:nat
α k.+1.+4 <= (α k.+4).*2
rewrite -(leq_pmul2l (_ : 0 < 3)) //.
k:nat
3 * α k.+1.+4 <= 3 * (α k.+4).*2
rewrite -!alphaL1E.
k:nat
3 * α_[1] k.+1.+4 <= 3 * (α_[1] k.+4).*2
apply: leq_trans (alpha_4_3 _) _ => //.
k:nat
4 * α_[1] k.+4 <= 3 * (α_[1] k.+4).*2
by rewrite -mul2n mulnA leq_mul2r orbT.
Qed.

Lemma alphaL_4_5 n : α_[1] (n.+2) <= (α_[1] n).*2.+1.
n:nat
α_[1] n.+2 <= (α_[1] n).*2.+1
Proof.
n:nat
α_[1] n.+2 <= (α_[1] n).*2.+1 
rewrite !alphaL1E.
n:nat
α n.+2 <= (α n).*2.+1
case: n => // [] [|[|[|]]] // k.
k:nat
α k.+2.+4 <= (α k.+4).*2.+1
rewrite -!alphaL1E.
k:nat
α_[1] k.+2.+4 <= (α_[1] k.+4).*2.+1
apply: leq_trans (leqnSn _).
k:nat
α_[1] k.+2.+4 <= (α_[1] k.+4).*2
rewrite -(leq_pmul2l (_ : 0 < 3)) //.
k:nat
3 * α_[1] k.+2.+4 <= 3 * (α_[1] k.+4).*2
apply: leq_trans (alpha_4_3 _) _ => //.
k:nat
4 * α_[1] k.+1.+4 <= 3 * (α_[1] k.+4).*2
rewrite -(leq_pmul2l (_ : 0 < 3)) //.
k:nat
3 * (4 * α_[1] k.+1.+4) <= 3 * (3 * (α_[1] k.+4).*2)
rewrite mulnCA (leq_trans (_ : _ <= 4 * (4 *  α_[1] k.+4))) //.
k:nat
4 * (3 * α_[1] k.+1.+4) <= 4 * (4 * α_[1] k.+4)
k:nat
4 * (4 * α_[1] k.+4) <= 3 * (3 * (α_[1] k.+4).*2)
  by rewrite leq_mul2l /= alpha_4_3.
k:nat
4 * (4 * α_[1] k.+4) <= 3 * (3 * (α_[1] k.+4).*2)
by rewrite -mul2n !mulnA leq_mul2r orbT.
Qed.

Lemma dsum_alphaL_S l n : S_[l] n.+1 = S_[l] n + α_[l] n.
l, n:nat
S_[l] n.+1 = S_[l] n + α_[l] n
Proof.
l, n:nat
S_[l] n.+1 = S_[l] n + α_[l] n by rewrite addnC subnK //; case: (convex_dsum_alphaL l). Qed.

Lemma dsum_alphaLE l n : S_[l] n = \sum_(i < n) α_[l] i.
l, n:nat
S_[l] n = \sum_(i < n) α_[l] i
Proof.
l, n:nat
S_[l] n = \sum_(i < n) α_[l] i
elim: n => [|n IH].
l:nat
S_[l] 0 = \sum_(i < 0) α_[l] i
l, n:nat
IH:S_[l] n = \sum_(i < n) α_[l] i
S_[l] n.+1 = \sum_(i < n.+1) α_[l] i
  by rewrite /dsum_alphaL /conv /= dsum_alpha_0 muln0 big_ord0.
l, n:nat
IH:S_[l] n = \sum_(i < n) α_[l] i
S_[l] n.+1 = \sum_(i < n.+1) α_[l] i
by rewrite dsum_alphaL_S IH big_ord_recr.
Qed.


(* Table *)

Lemma S1_small : 
  ((S_[1] 0 = 0) * (S_[1] 1 = 1) * (S_[1] 2 = 3) * (S_[1] 3 = 6) * 
  (S_[1] 4 = 10) * (S_[1] 5 = 16) * (S_[1] 6 = 24))%type.
((S_[1] 0 = 0) * (S_[1] 1 = 1) * (S_[1] 2 = 3) *
 (S_[1] 3 = 6) * (S_[1] 4 = 10) * (S_[1] 5 = 16) *
 (S_[1] 6 = 24))%type
Proof.
((S_[1] 0 = 0) * (S_[1] 1 = 1) * (S_[1] 2 = 3) *
 (S_[1] 3 = 6) * (S_[1] 4 = 10) * (S_[1] 5 = 16) *
 (S_[1] 6 = 24))%type
by rewrite /dsum_alphaL /conv /= /dsum_alpha
              -!(big_mkord xpredT) unlock /=; compute.
Qed.

Lemma S2_small : 
  ((S_[2] 0 = 0 ) * (S_[2] 1 = 2) * (S_[2] 2 = 4) * (S_[2] 3 = 8) * (
  S_[2] 4 = 14) * (S_[2] 5 = 20) * (S_[2] 6 = 28))%type.
((S_[2] 0 = 0) * (S_[2] 1 = 2) * (S_[2] 2 = 4) *
 (S_[2] 3 = 8) * (S_[2] 4 = 14) * (S_[2] 5 = 20) *
 (S_[2] 6 = 28))%type
Proof.
((S_[2] 0 = 0) * (S_[2] 1 = 2) * (S_[2] 2 = 4) *
 (S_[2] 3 = 8) * (S_[2] 4 = 14) * (S_[2] 5 = 20) *
 (S_[2] 6 = 28))%type
by rewrite /dsum_alphaL /conv /= /dsum_alpha
              -!(big_mkord xpredT) unlock /=; compute.
Qed.

Lemma S3_small : 
  ((S_[3] 0 = 0) * (S_[3] 1 = 2) * (S_[3] 2 = 5) * (S_[3] 3 = 9) * (
  S_[3] 4 = 15) * (S_[3] 5 = 23) * (S_[3] 6 = 32))%type.
((S_[3] 0 = 0) * (S_[3] 1 = 2) * (S_[3] 2 = 5) *
 (S_[3] 3 = 9) * (S_[3] 4 = 15) * (S_[3] 5 = 23) *
 (S_[3] 6 = 32))%type
Proof.
((S_[3] 0 = 0) * (S_[3] 1 = 2) * (S_[3] 2 = 5) *
 (S_[3] 3 = 9) * (S_[3] 4 = 15) * (S_[3] 5 = 23) *
 (S_[3] 6 = 32))%type
by rewrite /dsum_alphaL /conv /= /dsum_alpha
              -!(big_mkord xpredT) unlock /=; compute.
Qed.

Lemma S4_small : 
  ((S_[4] 0 = 0) * (S_[4] 1 = 2) * (S_[4] 2 = 6) * (S_[4] 3 = 10) * (
  S_[4] 4 = 16) * (S_[4] 5 = 24) * (S_[4] 6 = 36))%type.
((S_[4] 0 = 0) * (S_[4] 1 = 2) * (S_[4] 2 = 6) *
 (S_[4] 3 = 10) * (S_[4] 4 = 16) * (S_[4] 5 = 24) *
 (S_[4] 6 = 36))%type
Proof.
((S_[4] 0 = 0) * (S_[4] 1 = 2) * (S_[4] 2 = 6) *
 (S_[4] 3 = 10) * (S_[4] 4 = 16) * (S_[4] 5 = 24) *
 (S_[4] 6 = 36))%type
by rewrite /dsum_alphaL /conv /= /dsum_alpha
              -!(big_mkord xpredT) unlock /=; compute.
Qed.

Lemma S5_small : 
  ((S_[5] 0 = 0) * (S_[5] 1 = 2) * (S_[5] 2 = 6) * (S_[5] 3 = 11) * (
  S_[5] 4 = 17) * (S_[5] 5 = 25) * (S_[5] 6 = 37))%type.
((S_[5] 0 = 0) * (S_[5] 1 = 2) * (S_[5] 2 = 6) *
 (S_[5] 3 = 11) * (S_[5] 4 = 17) * (S_[5] 5 = 25) *
 (S_[5] 6 = 37))%type
Proof.
((S_[5] 0 = 0) * (S_[5] 1 = 2) * (S_[5] 2 = 6) *
 (S_[5] 3 = 11) * (S_[5] 4 = 17) * (S_[5] 5 = 25) *
 (S_[5] 6 = 37))%type
by rewrite /dsum_alphaL /conv /= /dsum_alpha
              -!(big_mkord xpredT) unlock /=; compute.
Qed.

Lemma alpha1_small : 
  ((α_[1] 0 = 1) * (α_[1] 1 = 2) * (α_[1] 2 = 3) * (α_[1] 3 = 4) * 
  (α_[1] 4 = 6) * (α_[1] 5 = 8))%type.
((α_[1] 0 = 1) * (α_[1] 1 = 2) * (α_[1] 2 = 3) *
 (α_[1] 3 = 4) * (α_[1] 4 = 6) * (α_[1] 5 = 8))%type
Proof.
((α_[1] 0 = 1) * (α_[1] 1 = 2) * (α_[1] 2 = 3) *
 (α_[1] 3 = 4) * (α_[1] 4 = 6) * (α_[1] 5 = 8))%type
by rewrite /alphaL /delta !S1_small; compute.
Qed.

Lemma alpha2_small : 
  ((α_[2] 0 = 2) * (α_[2] 1 = 2) * (α_[2] 2 = 4) * (α_[2] 3 = 6) * (
  α_[2] 4 = 6) * (α_[2] 5 = 8))%type.
((α_[2] 0 = 2) * (α_[2] 1 = 2) * (α_[2] 2 = 4) *
 (α_[2] 3 = 6) * (α_[2] 4 = 6) * (α_[2] 5 = 8))%type
Proof.
((α_[2] 0 = 2) * (α_[2] 1 = 2) * (α_[2] 2 = 4) *
 (α_[2] 3 = 6) * (α_[2] 4 = 6) * (α_[2] 5 = 8))%type
by rewrite /alphaL /delta !S2_small; compute.
Qed.

Lemma alpha3_small : 
  ((α_[3] 0 = 2) * (α_[3] 1 = 3) * (α_[3] 2 = 4) * (α_[3] 3 = 6) * (
  α_[3] 4 = 8) * (α_[3] 5 = 9))%type.
((α_[3] 0 = 2) * (α_[3] 1 = 3) * (α_[3] 2 = 4) *
 (α_[3] 3 = 6) * (α_[3] 4 = 8) * (α_[3] 5 = 9))%type
Proof.
((α_[3] 0 = 2) * (α_[3] 1 = 3) * (α_[3] 2 = 4) *
 (α_[3] 3 = 6) * (α_[3] 4 = 8) * (α_[3] 5 = 9))%type
by rewrite /alphaL /delta !S3_small; compute.
Qed.

Lemma alpha4_small : 
  ((α_[4] 0 = 2) * (α_[4] 1 = 4) * (α_[4] 2 = 4) * (α_[4] 3 = 6) * (
  α_[4] 4 = 8) * (α_[4] 5 = 12))%type.
((α_[4] 0 = 2) * (α_[4] 1 = 4) * (α_[4] 2 = 4) *
 (α_[4] 3 = 6) * (α_[4] 4 = 8) * (α_[4] 5 = 12))%type
Proof.
((α_[4] 0 = 2) * (α_[4] 1 = 4) * (α_[4] 2 = 4) *
 (α_[4] 3 = 6) * (α_[4] 4 = 8) * (α_[4] 5 = 12))%type
by rewrite /alphaL /delta !S4_small; compute.
Qed.

Lemma alpha5_small : 
  ((α_[5] 0 = 2) * (α_[5] 1 = 4) * (α_[5] 2 = 5) * (α_[5] 3 = 6) * (
  α_[5] 4 = 8) * (α_[5] 5 = 12))%type.
((α_[5] 0 = 2) * (α_[5] 1 = 4) * (α_[5] 2 = 5) *
 (α_[5] 3 = 6) * (α_[5] 4 = 8) * (α_[5] 5 = 12))%type
Proof.
((α_[5] 0 = 2) * (α_[5] 1 = 4) * (α_[5] 2 = 5) *
 (α_[5] 3 = 6) * (α_[5] 4 = 8) * (α_[5] 5 = 12))%type
by rewrite /alphaL /delta !S5_small; compute.
Qed.

Definition alphaS_small :=
   (S1_small, S2_small, S3_small, S4_small, S5_small).

Definition alpha_small :=
   (alpha1_small, alpha2_small, alpha3_small, alpha4_small, alpha5_small).

End S23.

Notation α := (alpha 2 3).

Notation "\min_ ( i <= n ) F" := (bigmin (fun i => F) n)
 (at level 41, F at level 41, i, n at level 50,
  format "\min_ ( i  <=  n )  F").

Notation " 'S_[' l ']' " := (dsum_alphaL l) 
 (format "S_[ l ]").

Notation " 'α_[' l ']' " := (alphaL l) 
 (format "α_[ l ]").

Notation S1 := dsum_alpha.